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FOREWORD 

Books  as  solid  as  this  one  don’t  just  spring  out  of  the 
Spectrum  without  a  serious  investment  of  time  and 
effort. 

And  there  has  been  plenty  of  both  time  and  effort  spent 
making  sure  this  collection  of  games  for  your 
Spectrum  is  as  good  as  we  could  make  it. 

Drawing  on  the  work  of  some  of  the  UK’s  best  young 
computer  programmers,  I’ve  brought  together  a  series 
of  major  programs  for  the  Spectrum  which  deserve 
the  label  ‘software  quality’.  The  major  contributors 
were  Malcolm  Young,  David  Perry,  Graham  Charlton 
and  Neil  Pellinacci,  whose  work  forms  the  bulk  of  this 
book. 

Others  I  contracted  to  produce  programs  for  this 
collection  include  Scott  Vincent,  Raymond  Blake,  Neal 
Cavalier-Smith,  Paul  Toland,  Andrew  Sweetland,  Martin 
Jones,  Graham  White,  Tim  Rogers,  Damian  Steele, 
Neville  Predebon  and  Michael  Briggs.  They  also 
deserve  congratulations  for  the  quality  and  ‘play¬ 
ability’  of  the  programs  they’ve  contributed. 

Time  to  start  your  Spectrum  exploding. 

Tim  Hartnell, 

London,  1983. 
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Protector 


No  need  now  to  spend  your  money  in  the 
arcade.  PROTECTOR  gives  you  the  chance  to 
save  the  world  (or  at  Least  a  few  cities) 
as  this  sample  run  shows: 


/  / 


V/  Y  \ 

\  ,  •  '\;>  / 
/ 

/  / 

/  / 


Your  controls  are  "M" ,  "Q",  "A",  "0"  and 

"P".  Time  to  start  protecting... 


10  REM  RUN  UITH  Oft  PS  LOCK  gES 
20  CLS 

30  FOR  F  =  1  TO  4-9 
4-0  BORDER  F/7 
50  BEEP  0.05,F 

50  PRINT  RT  5,10;  INK  0;  PAPER 
4-;  FLRSH  1;  "PROTECTOR" 

TO  NEXT  F 
50  LET  SC=0 
90  LET  H5  =0 
100  RESTORE 
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I 


110  LET  N=© 

120  PAPER  1:  BORDER  1:  INK  6:  C 


130  LET  ©$  =  "  Ilk " :  REM  G  H BO 
14-0  LET  R$=Q$ 

150  LET  U$  =  +  “JHk":  REM  G  DE8G 
160  LET  E$  =  "WW :  REM  G  36  866 
170  FOR  X=1  TO  12 
160  READ  R$ 

190  FOR  Y=0  TO  7 
200  READ  H 
210  POKE  USR  R  $  +Y , fi 
220  NEXT  Y:  NEXT  X 
230  DIM  Z$  (6,2,4.)  :  DIM  L(15;2! 
DIM  N (15  J  :  DIM  X$C15) 

2d.0  DATS  ”R"  ,  28 , 20 , 28 , 28 . 20 , 20 

<1  unn  n  j—  a  a  • —  j—  . —  , _  ' _ - 


6© , 126  , 


’B"  ,  16/  16,56,56,56ii56j! 
126  ,  128  ,  128  ..  192  ..  192  ..  2i 


£ '  g  *  254-  ,  254- ,  254- ,  255  ,  255 , 255 , 25 
f  7  g§®^  g"/S55  ^  255^231  /  135 , 135 , 2-3 

HM*u Ui*Ui  ”H " '  *s ' *s  -  ^ 

— C’hi  t  fi  "X  1  j  129  j  66  j  3t>  .0^0,  as  ■  e 

S  ,  129  ,  "  ,  129 , 126 , 126 , 6S  .  6©  ,  24-  ;  2 

4,24-,  *‘\  “  .  126 , 64-  ,  32  ,  IS  ,0/4/2.1,  "x 
”,1,2,4,8,16.32,64, 12S 
26©  FOR  £3  =  1  TO  6:  LET_Z$(B,1)  =Q 

$  :  i_&  i  iD.i  /  =w  »  ■  !  4  w 

og0  let  1 J  =  1 0  ■■  LET  D=U:  LET  M  =  l  : 
LET  W=6:  GO  5UB  0970;  GO  SUB  09 
2© 

290  FOR  B=1  TO  U :  LET  L(B,1)=IN 
T  (RNDiH)  :  LET  L(B,25=IHT  £  P.ND  *3 
01;  LET  N (B) =INT  (RND*2) *2-1:  LE 
T  X $  (BO  =CHR$  (156.5-NJB3  /2J  ;  NEX 


T  B  . 
300 
310 
6=1 
32© 


GO  SUB  0950 

LET  Al=17:  LET  A2=15 

LET  B=B+1:  IF  B  >D  TH1 


LET 


32©  PRINT  RT  ©,2©.;  INK  0:  "SCORE 

=  r*  ■  sc 

330'  PRINT  RT  L  £B  .  i)  ,L  £E-  .  2)  ;  X$  tB 
)  :  LET  L  £ B ,  1)  =L  £B,  1)  +1 -  LET  L  (B  , 
{$*  "LCB*a>  +N  tBJ  :  IF  L(B,2i  >31  THE 
N  Lsr.T  L.  l  e  ,  2  )  =8 

=ll0  1F  L (B,2) <©  THEN  LET  L (B,2) 

J5?  ™EgC§lE?3  iWI'1'  'L<e'a)1  < 


360  PRINT  RT  L(B,D  ,L(B,2J  ;  "T" 
370  LET  L 1  =  0 :  LET  L2=© 

380  IF  INKEY $  =  ”  ”  THEN  GO  TO  050 


390 

10 

4-00 

1 

4-X0 

IF 

INKEY$="M" 

THEN 

GO 

TO  0© 

IF 

IN KE  Y  $  =  " © ” 

THEN 

LET 

Ll  =  - 

IF 

INKEY  $  =  "R" 

THEM 

LET 

Ll  =  l 

4-sy 

X 

IF 

INKEY $="G” 

THEN 

LET 

L2  —  — 

430 

IF 

INKEY $="P" 

THEN 

LET 

L2  =  l 

4-4-0  PRINT  RT  "  “ 

4-50  LET  R1=R1+L1:  LET  R2=fi£+L2 
4-60  IF  R1  <  1  THEN  LET  Rl  =  l 

4-70  IF  R 1  >  17  THEN  LET  fll  =  17 

4-S0  IF  R2<1  THEN  LET  R2=3© 

4-90  IF  R2>30  THEN  LET  R2  =  i 

5©0  PRINT  RT  fll  ,R2;  "X-  •-  GO  TO  © 

31© 

510  PRINT  INK  2; RT  Rl-i . R2 -1;  ”  „ 
Ss  ”  ;  RT  Rl,  R2-1;  *«*";  RT  Ri-f  1  ,  R2- 

x  €  m  “ir  **  — » 

§20  FOR  Y  =  1  TO  D:  IF  RBS  tL(Y,l 

J -Rl) >1  OR  RBS  CL (Y(2) -R2J >1  THE 
N  GO  TO  054-0 
53®  GO  TO  0570 
54-0  NEXT  Y 

crcr-r*  r->  r-. -r  t.  ,-r-  o“r-  0-1  .  ..  1  OO-  _  T  •  **  *■  ;  C3T 

_R1 7 os- " ;  RT  01  +  1,02-1;  ** 


560  GO  TO  0318 

57©  LET  L(Y|i)sL(D,l) :  LET  LCY. 
25 =L 10,2):  LET  N(Y)=NCD):  LET  X$ 
(Yi=X$(Di:  LET  D=D-1:  LET  SC=5C+ 
10 

560  BEEP  .15,16 

598  IF  D  >  0  THEN  GO  TO  054-0 

60©  LET  H=H+1 

6-10  PfiUSE  20© 

520  CLS  :  PRINT  RT  5,5;  FLR5H  1 
; "YOUR  SCORE  IS  ” ; SC :  PAUSE  180 
630  LET  U=0:  FOR  X=1  TO  6.  IF  Z 
$CX,2)<>E$  THEN  LET  U  =  LS  +  1 


650  IF  U=0  THEN  Gu  TO  SOjB 
66©  PRINT  RT  10,0; :  FOR  X=1 
A  -  PRINT  RT  10 , 4-*  CX-1)  ;  R$;  RT 


4-*CX-15;U$:  NEXT  X 
67©  LET  T=U*100:  PRINT  RT  11 


>  *4- ;  "  =  BONUS  "  ;  T  :  LET  SC=SC+T 


TO 
11  , 

,  CW 


5 


ow  Off 


B80  GO  SUB  S97S 

690  GO  SUB  0920:  LET  U=U+1:  IF 
U>1B  THEN  LET  U=15 

LET  D=U:  GO  TO  0290 
0/10  IF  L(B,1)<18  then  go  TO  OSS 

720  IF  SCREEN^  C  L  ( B  ,  1)  .  L  IB  ,  2)  H  < 
>  THEN  GO  TO  0800  '  ' 

730  LET  Z=L(B,2) 

,  4-0  IF  Z  >  1  fiND  Z<S  THEN  LET  Z  ft  f 
LET  Z$(1'2>=E*:  GO 

/50  IF  Z>5  RND  Z  <10  THEN  LET  Zft 
‘TO1©!^  LET  Z*t2,2J=Eft:  GO 

760  IFVZ>9nflND  Z  <  14-  THEN  LET  Zft 


=”  LET  Zft  (3,  2 J  =E ft  :  GO 

TO  0S4-0 

770  IF  Z  > 17  RND  Z<22  THEN  LET  Z 
C4.,l)=“  "  :  LET  Zft  (4,2)  =E*  G 


(4...  1J  =•’  :  LET  Zft  (4-^2)  =Eft:  g 

TO  0S40 

73©  IF  Z>21  RND  Z <2&  THEN  LET  Z 

C5,l)«**  ”  :  LET  Z$(S,2>=E$:  G 

TO  034-0 

790  IF  Z  >25  RND  Z  <30  THEN  LET  Z 

(64)="  M  :  LET  Zft  (G 2)  =Eft :  G 

TO  034-0 

300  LET  L(B4)=L(D4):  LET  LtB, 
=i  M>  .pi  •  t  ft  m  fRi  =m  t  r>  -  «  ft  y  * 

(B)=Xft(D):  LET  0=0-1 

810  IF  D>0  THEN  GO  TO  336S 

82©  IF  Uf=0  THEN  GO  TO  0350 

830  GO  TO  0600 

84-0  BEEP  .  15 , 2  :  GO  SUB  0920  :  GO 
SUB  0950:  GO  TO  0S00 
350  CLS  :  FLRSH  1:  FOR  X=1  TO  2 
Z>  -  PRINT  “  =  r;  —  =  ==  —  —  r:  =  =:  =  7r=:=r  —  z:  =  rr^=:=:=: 
=  =  =  =  =  =  =  =  =  =  ••:  NEXT  X.  PRINT  RT  10 
, 12; ”GRME  OVER" :  FLRSH  © 

370  FLRSH  0  IF  SC-  >  =HS  THEN  PR  I 
NT  "WELL  DONE  YOU  HfiUE  THE  NEU  H 

JGH  let  HS=SC.SINp5t  "ENTER  Y 

°880N^RINt'  ^PRINT  PAPER  0.:  INK 

74©|;  PRINT  THPRINT  FLASH  1.:  ’PRES 
<=i  R  TO  PLAY  RGRIN"  vi  _____  _ 

“900  IF  INKEY ft  <  > “B"  THEN  BEEP  0. 
:=t  1  -  GO  TO  0900 
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94.0  RETURN 

9S0  PRINT  RT  IS..©.:  INK  4-;  G£i  TO 
2)  ;  INK  3;Q$C3  TO  14-)  ;  INK  4-.; 

CIS  TO  13);  INK  3;0$(I9  TO  3©); 
INK  4- ;  O $  C 3 1  TO  34.);  INK  3;  C35 

TO  4-6);  INK  4-;  0$  ( 4-7  TO  50);  INK 
3;e$(51  TO  62);  INK  4-;  Q$  C63  TO  ) 
36©  RETURN 

970  PRINT  RT  2©,13;  "LEUEL  ";H 
980  FOR  F=1  TO  2©0 :  NEXT  F;  CL_5 


990  RETURN 


V  / 

/  \y' 


X  X  SCORE  —  ‘0 

%  \  ./  ///\ 


\ 


// 


¥¥ 


/  \ 


/w 


\ 
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Hi-Rize 

From  PauL  ToLand  comes  this  exciting 
arcade  game,  which  involves  jumping 
through  many  screens  of  lines  with  moving 
gaps.  There  ere  five  screen  variations  to 
be  played  through,  and  you  can  see  them 
all  in  these  screen  printouts: 


hi-rize 


SCREEN  1 


m-RIZE 

SCREEN  2 

Fr ofii  this  screen  on,  red  dots 
appear  on  the  screen  and  you 
can  gain  points  by  going  over 
these. 

in  this  screen  uou  mao  not 
return  to  the  base  tine. 


m-RIZE 

SCREEN  3 

as  you  Move  up  the  screen  the 
lines  below  you  vanish,  so  you 
will  lose  a  life  if  you  fall. 


9 


♦ 


■jjjj  &  —960—  SC.REEN"3-  1 

HI-RIZE 

SCREEN  4- 

_ t* _ — ^  — 

Pi  & 


* 


* 


1630' 


CREEN*4' 


raaoip 


ni-RIZE 

5CREEN  5 


spiKes  appear  at  the  top  of  the 
screen  and  their  touch  is 
letha  i  . 


And  here's  the  listing  for  HI-RIZE: 


1  REM  HI-RIZE  ©  P.  TOLRN D 
30  GO  SUB  800:  GO  SUB  2S00 
90  LET  TOT  =TOT +1 ;  LET  UN=UN+2: 
GO  SUB  920 

ISO  FOR  I=H  TO  L:  PRINT  RT  1*2- 
,H«I,1);CHR*  14.4..-  LET  N=H«I,1)  + 
(IfS) :  IF  N<0  OR  N > 31  THEN  LET 
=INT  CRND  +  .SJ;  LET  HlT,2)  = 

):  LET  N=(H( I,2>=-1)*31 
110  PRINT  RT  1*2-1 y  N;  "  **  :  LET  H 

S I , 1 i =N :  NEXT  I 


11 


^120  PRINT  AT  Y , X ; "  ” ;  IP  SCREEN 

5  ^  +1..  X)  =”  ’•  THEN  LET  SC=SC-£B» 

b;  PRINT  AT  21,S;SC;CHR$  14-4- :  BE 
=-P  .1,-20:  LET  Y=Y+2:  LET  C  =  14-6 

LET  T  =0 ;  IF  L  <  1 0  THEN  LET  L=L+3 
:  IF  G>2  THEN  GO  TO  380 
130  LET  T=T  +  1:  XF  T=UN  THEN  LET 
C  =  14-5  :  BEEP  .©5,3© 

14-0  IF  0  =  14-6  THEN  GO  TO  155 
2  4-5  LET  I  $  =  INKEY  $ :  IF  I*<>"1”  T 
HEN  GO  TO  15© 

14-6  IF  SCREEN*  (Y-1,XJ=”**  THEN 
SEEP  .©5,0:  LET  0=14-6:  LET  T=0; 
GO  TO  16© 

14-7  IF  Y<20  THEN  LET  L=L-1;  IF 
L  <1©  RND  G>2  THEN  PRINT  RT  Y  +  1,0 


lie  LET  SC=S C+I0|G: 
6.:  SC,  CHRJ  l*4-:  BEEP 
V  =Y -2 :  LET  X =X -H  t V 
15©  LET  X=X  + ( I*  =  "8 


PRINT  RT  21 
.05,2© :  LET 
2+1 ,2) 

3 - 


W  *  .A-rtT  t  if-  W  .*  »  a.-p-  w-  -  - 

LET  X=X  +  (X  =  -l>  +32-  (X=32.l  +32 
154-  XF  SCREEN*  (Y  +  1,XJ=**  ”  THEN 

- - -  A  ^ 


IF 


GO  TO  120 

155  LET  N  =flTTR  IY,XJ  _ 

HEN  LET  SC  =  SC  +  10  +G :  BEEP 
PRINT  RT  21,6;  SC;  CHR*  14-4- 

IF  N=4-S  OR  N  =51  THEN  GO 


257 


N  =50  T 
05,5: 


TO 


13  L 

ir 


262  PRINT  INK  0;RT  Y,X;CHR*  C: 
IF  Y=0  THEN  LET  G=G+1:  RESTORE  2 
©©0:  FOR  1=1  TO  13:  READ  N:  BEEP 

.  1  ,  N  :  NEXT  I :  GO  TO  90  * 

17©  PRINT  RT  BY  ,  BX ;  **  “  :  LET  BX  = 

EX+D:  LET  BX =BX + * BX = -1 3 +32 - ( BX =3 
23+32:  LET  R*=SCREEN*  fBY+2,BX3: 

XF  SCREEN*  ( BY  + 1 , BX — D 3  =”  *'  OR  R 

*  =  "  •'  THEN  LET  BY  =BY  +2 :  LET  D  =  -H 

iEY/2+1 , 2)  :  IF  BY ill  OR  BY > Y  THE 
N  LET  BY  =0 :  LET  BX  =  I6:  LET  D  =  -H ( 
2,23 

175  LET  N=fiTTR  (  BY ,  BX3  ;  IF  N=4-B 

THEN  GO  TO  310 

277  IF  N  =51  THEN  LET  D  =  -D:  LET 
BX =BX  +D 

IB©  PRINT  INK  0; RT  BY,BX; CHR*  1 
4-7 

185  IF  G=2  RND  Y  <2©  THEN  PRINT 
INK  0; RT  2©,0; N* 

29©  GO  TO  200 


.12 


30©  FOR  I=L*2  TO  20:  PRINT  RT  I 
,  X CHR$  14-6;RT  I  - 1  ,  X  ;  "  :  BEEP  . 

1,20-1:  NEXT  I 

310  BEEP  2.-10:  LET  M=M-1:  IF  M 
=0  THEN  INPUT  "  TRY  RGRIN  7“;R$ 
:  GO  TO  l+(fl$  =  "N”)  *-999S+(fl$  =  "n"J 
#9998 

’  32©  LET  G=G-1 +  CG=li 


330  GO  TO  90 

S00  RESTORE  30© :  LET  T$=”  ”:  FOR 
1=1  TO  63:  RERD  N:  LET  T$=T*+CH 
R$  (N+128) :  NEXT  I  , ^  „ 

310  DRTR  0.14, 13,0,7, 11,0, 12 ,0, 
1 1 . 6 , © . 7 , 11 , 0 , 3 , 3 , 1 1 , © , 1 1 <  3 , 0 , 1® 
.5'.0,5',10,0,0,0,10.9;0/5,10,0,e, 
3,0,0,11,3,0,10,5,0,13,14,0,0,0, 
10,6,0,13,14,0,13,12,  IS*©  ' 

320  LET  T$  =  ”  +T $  (  TO  22*  +" 

■■+T$(23  TO  4-2.1  +** 

"  +TS  (4-3  TO  ) 

90©  RESTORE  9©0:  FOR  1=0  TO  55; 
RERD  N:  POKE  USR  "R"+I,N:  NEXT 


9©5  LET  N  =© :  DIM  B$ (32)  :  RfiMDOH 

IZE  :  LET  TOT=0:  LET  UN =5:  LET  S 
C=<Zt:  LET  M=4-  ;  LET  G=1  :  RETURN 

91©  DRTR  255,255,255,0,0,0,0x0 
911  DRTR  60,231,139,165,153,66, 


912  DRTR  195 , 165 , 129 , 139 , 139 , 13 
q  231  24- 

913  DRTR  24.,  102, 102, 153,153, 102 
.  132 .24- 

914-  DRTR  0,0,24, 60, 60, 24, 24- ,  0 ,0 
915  DRTR  16,16,16,56,53,55,254., 

■a 


916  DRTR  24.,  24-,  60, 255, 60 .24- .24- , 

24- 

92©  LET  N$  =  *■•':  LET  L$=**”:  FOR  I 
=  1  TO  32:  LET  N$=N$+CHR$  14-9:  LE 
T  L  $  =L  $  +CHR$  14-4- :  NEXT  I 
93©  IF  P$="Y"  THEN  GO  SUB  2SS0 
94-0  LET  H  =  1  :  LET  L=10:  LET  T  =  l© 
0:  LET  X'  =  1S:  LET  ¥=20:  LET  C  =  14-5 
350  INK  1:  PRPER  6:  BORDER  6 ;  C 


96©  LET  BX  =  16  ;  LET  BY  =0 
970  IF  G  >  1  THEN  FOR  1=1  TO  20: 
PRINT  INK  2.;RT  INT  (RND»10)  *2.RN 
DS31;CHR$  14-8:  NEXT  I 
-  930  IF  G  >  4-  THEN  FOR  1=2  TO  1©  S 
TEP  2:  PRINT  RT  1,25;  XNK  3;CHR$ 
150:  NEXT  I 
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1©S©  DIM  H(10,2.t 

1010  FOR  1=1  TO  21  STEP  2:  PRINT 
RT  I,0;L$;  NEXT  I 
1020  FOR  1=1  TO  10:  LET  HfI,lJ=I 
NT  fRNDjfSl)  :  LET  R  =  I NT  t'RND+.5J  : 

LET  H(I,2) =R-(R=0) :  NEXT  I 
103©  LET  D=-Htl,2) 

104-©  PRINT  RT  21,3;SC.;RT  21,15;" 
SCREEN"  ;  CHR$  14-4-;G;RT  21,29;  TOT: 

FOR  1=1  TO  M-l:  PRINT  RT  21,1*2 
;CHR$  14-5:  NEXT  I 
20S©  RETURN 

201©  DRTR  2,2 .2, 14- ,  14- ,  14.,  11, 11, 1 
1,7.11,7.2 

2500  PRPER  1:  INK  7:  BORDER  1:  C 

LS  :  INPUT  ; :  PRINT  RT  10,0; "DO 

you  want  instructions  ?“ 

2595  LET  1=0 

251©  LET  I$=INKEY$:  PRINT  RT  0,0 
;  INK  I ; T  $ :  IF  1$  =  ""  THEN  LET  1  = 
J-+1- CI=BJ *S:  GO  TO  251© 

252©  LET  P$="N":  IF  I$="Y"  OR  I* 
=*"y”  THEN  LET  P$="Y" 

253©  RETURN 

255©  LET  1=©:  INK  7:  PRRER  1;  CL 

S  :  BORDER  1:  INPUT  ; :  PRINT  RT 

4.,!©;  INK  6;  "SCREEN  ** ;  G :  GO  SUB 
G *100 +2500 


2560  LET  I*=INKEY$:  PRINT 
;  XNK  I;Tf :  it-  1?=  '  '  incus 
1*1- CI=Si  *S:  GO  TO  2560 
2570  BEEP  .5,10:  RETURN 


RT 


!600  PRINT  RT  6,0; 
o  reach  the  top  of 
screens  in  order 
o  the  next, 
u  .jumping  through 
in  the  lines  above 
ing  falling  down 
he  line  you  are 
You  also  have  to 
rrei  which  rolls 
higher  lines;  you 
life  if  it  hits 
2610  PRINT 
Keus  5&8 , 

E7URN 
270©  PRINT 
sen  on,  red  dots 
e  screen  and  you 
nts  by  going  over 
2710  PRINT  "in  this 
ay  not  return 


'Move 
Jump 


Your  aim  is  t 
each  of  the 
to  advance  t 
you  move  up  b 
moving  gaps 
whi  1st  avoi d 
the  gap  in  t 
standing  on. 
avoid  the  ba 
about  on  the 
will  i  ose  a 
you  .  " 
left&right  with 

With  Key  I " ;  R 


RT  6,0; "From  this  scr 
appear  on  th 
can  gain  poi 
these . " 
screen  you  m 
to  the  base 
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line.”:  RETURN 

2S0®  PRINT  RT  6..0;"Rs  you  move  u 
p  the  screen  the  lines  below 

you  vanish,,  so  you  will  lose  a 
life  if  you  fall.";  return 
290®  PRINT  RT  10,0; "Things  speed 
up  a  bit  from  now  on,”.-  RETUR 
N 

3000  PRINT  RT  10,0; "Spikes  appea 
r  at  the  top  of  the  screen  and 
their  touch  is  lethal-".-  R 

ETURN 

3S3®  RETURN 

3339  INK  0:  PAPER  7;  BORDER  7 


15 


Wipc-Out 

No  collection  of  computer  games  would  be 
complete  without  a  'city  bomber'  type 
program.  This  is  a  much  stronger  version 
of  the  game  than  many  I've  seen,  and 
provides  a  real  challenge  to  the  player. 
Here  it  is  in  action  lat  the  end  of  a 
runj : 


The  scenario  is  familiar.  You  are  in  a 
space  ship  which  is  coming  down.  You  do 
not  have  any  means  of  ascending,  so  must 
blast  a  landing  strip  for  yourself  by 
dropping  bombs  on  the  buildings.  Use  the 
"H"  key  to  release  your  bombs. 

3.0  PRPER  0.  BORDER  0:  CL5 

£0  DFSTfi  0,0,0,63,255..0..2,B,1,3 
,7,255,255 . S3 , 252.26,6,0 . 0, 0,255 
, 255 , 255 , 255 , £55 , 76 , £55 , 255/102 , 
255 , 255 ,2,6,S4.,71,116,39,  120 , 2 
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3©  FOR  C=ni  TO  115  ;  FOR  n  =0  T 
O  7 

4*0-  RERD  X;  POKE  U5R  CHR$  C +n  .  X 
SO  NEXT  n  NEXT  C 
BO  LET  be  =0 

78  PRINT  RT  3,5;  INK  5;%,***UIF 
H  -  OUT  tif#-  H  to  drop  hOffth. 

Pipe  the  city  off  the  earth 

with  H-bombs  t  o  give  yourss 

if  =?  landing  strip***;  RT  15,8;  OR 
IGHT  I;  INK  3; "DIFFICULTY  7(2  TO 
7)  :  INPUT  D:  LET  D=7-D 

80  FRPER  0;  CLS  ;  BORDER  0 
30  LET  S  =  -l 
200  FOR  5=3  TO  25 

2  20  INK  IrINT  ( RND  a*  7.*  :  PRPER  It 
INT  (RND*7J :  LET  q=ll+INT  (RND*9 
:* 

220  PRINT  RT  q,a;  PRPER  ©;  *W*  : 
FDR  b^qrl  TO  21  :  PRINT  RT  b  .  a  : 

“  ;  NEXT  b 
230  NEXT  a 
24*0  FOR  3=2  TO  22 

250  PRPER  O;  INK  ItINT  (RND *7) 
250  LET  bp  =(22-3  7 
270  FOR  b  =  23  TO  2  STEP  -2 
230  PRINT  RT  3  ,  b;  :  BEEP  .0 

fI,bP 

290  FOR  1=0  TO  d 

200  LET  5  =5  -f-2  ft  (  INKEY$  =  “h  “7  4*  (a  =2 
;t  ;  GO  SUB  320 


22© 

NEXT  l 

w-»  «— V  0 

IF  SCREEN $  ( 3 

,  S- 

2  7 

<  >  "  11 

THE 

"go 

TO  45© 

230 

PRINT  RT  3 , b ; 

1  • 

1 1 

24-0 

NEXT  b ;  PRINT 

RT 

a 

,  i;  " 

9  1 

25© 

NEXT  3 

230 

DRT  R  4,4 ,4..S 

27© 

RESTORE  258 ; 

FOR 

3 

=  2  TO 

4; 

RERD  X:  BEEP  . 25 * ( 1 +3  *  ( 3 =4 3  7  , X  : 

NEXT  a 

230  PRINT  RT  22,0;  FLfiSH  2C  INK 
3;  prper  s; "SCORE; ";be; "standby 
for  tsKe-orr:  pruse  300 

200  PRPER  0:  FOR  3=20  TO  ©  STEP 
-2 

300  PRINT  RT  3  +  2 . 3  +  2  :  **  **  ;  RT  3 

a;  INK  2+1  NT  JRNDtB)  ;  * '  — ?a^ 1  * 

310  NEXT  a.  GO  TO  70 
320  IF  3=21  THEN  RETURN  :  IF  S  = 
2  THEN  LET  e=a+2 
33©  IF  S=2  THEN  LET  S =3 +2 -(3=2© 
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34-0  IF  S=i  THEN  LET  h  =b  +2 :  IF  S 
=  1  THEN  LET  d  =d  /2 
35©  IF  S<0  THEN  RETURN 
350  PRINT  RT  6-2,h;*'  '  J  RT  e,hj" 

:  BEEP  .©05, £1-6:  LET  6=6+1 
370  IF  SCREEN  $  (6,hJ  <>"  "  THEN 

GO  TO  39© 

350  IF  e  <21  THEN  RETURN  :  IF  e  > 
21  THEN  LET  6=21.  GO  TO  4-00 
330  LET  b£=b£+l® 

4-00  IF  6  >21  THEN  LET  6=21 
4-1©  PRINT  RT  6-1, hj  PRPER  0J  "  " 

:  FOR  n =7  TO  0  STEP  -1 
4-20  PRINT  RT  6  ,  h  J  INK  r>j  :  BE 

EP  .  02  ,  r>  -12 
4-3©  NEXT  n 

44-0  LET  S=  — 1:  LET  d  =d  *2  :  RETURN 

450  PRINT  RT  6,b-2;“ 

460  DRTR  S , © . 0 , -5 . -5, -5, 0 
47©  RESTORE  450:  INK  2 
450  FOR  n  =10  TO  90  STEP  10:  PLO 
T  b*8, C21-3) *B:  DRRU  20, A:  NEXT 

430  PRINT  RT  11.10J  PRPER  &J  IN 

K  i;  "score be 

Iff  lo°SU5  420:  GO  TO  510 
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Birds 


Written  by  Neil  Pellinacci,  this  is  an 
arcade-type  game,  in  which  you  have  to 
defend  your  planet  from  the  lines  of  alien 
birdmen  above. 

Once  by  one  the  aliens  swoop  down  on  you, 
dropping  large  white  crates  in  the  process 
The  crates  are  used  as  bombs,  but  later  in 
the  game,  the  crates  can  smother  your 
planet,  completely  covering  it.  If  this 
happens,  the  game  ends,  no  matter  how  many 
lives  you  have  left.  The  crates  have  a 
third  role,  but  you'll  have  to  play  the 
game  to  discover  what  it  is. 

You  control  your  laser  base  using  the  "Z" 

t  •*%  S *»  »  •  .  *  -  ■ 

anu  /\  iscya,  mi  on  one  apaot  rsey  ou  lilt!. 

You  score  50  points  for  each  swooping 
birdman  you  hit.  If  you  hit  a  bi rdman  on 
the  bottom  row,  you  get  just  25  points. 
However,  a  birdman  hit  here  will  not  be 
killed,  but  merely  stunned,  and  will  soon 
return. 

You  start  with  three  laser  bases  and  lose 
one  each  time  it  is  hit  by  a  birdman  or  a 
crate.  The  number  of  bases  is  shown  on  the 
top  row  of  the  screen,  together  with  your 
score  (on  the  left)  and  the  current  high 
score.  You  gain  an  extra  base  when  you've 
destroyed  three  attack  waves. 
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At  this  point,  you’ll  meet  mutant  aliens. 
These  swoop,  but  may  then  rise,  dropping 
more  crates. 


To  give  you  something  to  aim  at,  you  might 
like  to  know  that  the  best  score  that  Nei l 
has  achieved  -  and  only  after  a  great  deal 
of  practice  -  is  12,000. 


The  program  is  written  entirely  in  BASIC 
with  the  exception  of  a  single  machine 
code  routine  Located  at  32500.  Here  is  a 
disassembled  listing  of  the  code: 


32500  L.D  H!_  .  Z04- 

32503  l_D  DE  .  2252B 

32506  i_D  BC..32 

325S9  PUSH  HL. 

3251©  RDD  HL_  ,DE 

32511  DEC  Hl_ 

i_u  s-t  ms., 

32513  CP  126 

32515  UP  Z  .,32539 

32517  POP  Hi- 

32516  DEC  Hi- 

32519  i_Q  P.H 

3252©  OP  i— 

32521  UP  HZ. 325S2 

32523  s_D  HL  .  23263 

32526  L.D  B  32 

32528  l_D  P..  IHL_> 

32529  CP  126 

32531  UR  HZ.,  32538 

32533  DEC  Hi- 

32534-  D  -JN2  32528 

32536  5_D  C  .  0 

32538  RET 

32539  L.D  (H U  ,73 

3254-1  RDD  HL.  ,  BC 

325*2  i_D  l  HL.). .126 

3254-4-  UR  3S517 
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And  here  is  the  key  to  the  user-defined 
graphics: 


RB 

CD 

CFG 

HIJ 

KL 


After  you  have  the  program  working,  you 
may  wish  to  relocate  the  code.  If  you  do, 
remember  to  check  lines  9D,  317,  412  and 

7020.  The  subroutine  Locates  the  position 
of  each  crate  and  moves  it  down  one 
position.  It  also  checks  to  see  if  the 
planet  is  completely  covered  by  crates. 
The  result  of  this  test  is  detected  on 
return  to  BASIC  by  Line  317. 


You  should  type  the  program  in,  and  then 
save  it.  before  trvinn  to  run  in  in  m<so 
you've  made  a  mistake  with  the  machine 
code.  It  is  also  advisable  to  save  the 
program  so  that  it  starts  automatically  on 
loadi ng . 


10  RANDOMIZE  :  GO  TO  90 
2©  PRINT  RT  0,.6-LEN  5TR$  5;  IN 
K  5;S:  RETURN 

3©  LET  8C=BC+(INKE'r$='*X“  AND  B 
C<27}-SINKEYSc"2"  RNl>  BOB)  ;  PRI 
NT  RT  21,BC.;  PAPER  8;  INK  6.;” 

35  IF  INKEYIO”  **  THEN  RETURN 
4©  GO  TO  52S 

5©  FOR  X=!  TO  3:  FOR  ¥=i  TO  1© 
6©  IF  L(X.Y)  0-1  THEN  LET  U=L 
€X.Y>  :  LET  Ci=C«  X ..  V  )  :  LET  GS=Y: 
LET  L2=X :  RETURN 

7©  NEXT  Y:  NEXT  X:  LET  UF=I:  R 
ETURN 


21 


S©  FOB  .X=2©  TO  7+IKT  (RND*iS3 
STEP  RT  X.BC+S.;  PRPER 

7;**  " :  BEER  .  30 1.4-3 -X :  PRINT  RT 

X'.BC+S.;  PrtPER  0;  NEXT  X:  PRI 

NT  RT  X.BC+2:  INK  6.:  PflPER  7;  “  " 

:  RETURN 

9©  CLERR  324-99 

95  BORDER  6:  PRPER  0:  CL5  :  BO 
RDER  © 

10©  INK  4-:  BRIGHT  1:  PRINT  RT  © 
..26;  INK  5;  “83086©“ 

105  GO  SUB  7©©0:  GO  SUB  9000 
1Q7  LET  HS=© 

11©  GO  SUB  3©©0:  LET  BC=I3:  LET 
S=©:  LET  LB =3 ;  LET  UU=© 

120  LET  FF=© 

130  LET  HF  =0 
14-©  LET  BFF=© 

160  LET  UF=© 

2©0  DIM  LC3, 10):  DIM  C  (3..  13 1 
205  FOR  B=©  TO  2 
210  FOR  R=0  TO  9 

22©  LET  L (B+l,R+i) =B*2-M:  LET  C 
(B  +  l  ,R4-1J  =9*34-1 
230  NEXT  R 
235  NEXT  B 

237  PRINT  RT  © ,  S,  INK  5.;  ’ 000000 

"  ;  RT  ©..  17;  LB 

rr»^r>  r~>  —  «  ~r-  n  ^ 


10:  PRINT  RT  HB 
NEXT  R 

NEXT  B 
LET  BH=0 

FOR  K=1  TO  I NT  CRND*15*Ii 
LET  B  =  INT  (RND^3fl) :  LET  R- 
(RND*1©4-I1 

IF  L(B.R1=-1  THEN  GO  To  315 
PRINT  RT  L  (B  ,  RJ  ,  C  IB  ,  R? 

:  BEEP  .©l.-l©:  PRINT  RT  LtB,R5, 
C  (B  .  Ri  :  :  BEEP  .61,5 

312  IF  RND  >  .  S  THEN  IF  RTTR  122.. 
BC+23 =126  THEN  GO  SUB  6© 

3 15  IF  INKEY  $  <  >  **  ”  THEN  GO  SUB  3 


250  FOR  R=1  TO 
,  R)  .  C  IB  .  R3 
255 
26© 

296 
30© 

I  NT 
3S5 
310 


317  IF  NOT  USR  32500  THEN  GO  TO 
4.000 


316  IF  RTTR  (21  .  BC-t-l)  -125  OR  RT 
TR  (21  .SC  4-2)  =126  OR  RTTR  £21, SC* 
31 =126  THEN  GO  TO  100© 


320  NEXT  K 
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33©  IF  BH>2©  THEM  GO  SUB  50:  IF 

UF  =0  THEM  GO  TO  4S5 

34.©  IF  UF  =  i  THEM  GO  TO  20©® 

4©0  LET  L2 = IHT  CRND+3+1J :  LET  C 
2-IHT  CRNDilSS-M) 

4-S2  LET  LI=L(L2.C2)  :  LET  CI=G?L 
2.C23 

4-Q4-  IF  L  i  =  -  i  THEM  GO  TO  40® 

4-05  PRINT  RT  LI. Cl;" 

4-©6  LET  CD  =  INT  (RNDfS-IJ 

4-1©  PRINT  RT  LI..  Cl;  QUER  !;"****" 

:  BEEP  .001..  LI +20:  PRINT  OvER  1; 

4-11  IF  RND  >  .  B  THEN  IF  LI  >6  THEN 
PRINT  RT  L 1  +  1.  Cl;  INK  6;  PRPER 
7;  "  " 

4-12  LET  ZZ-USR  32500  .  IF  INKEY  $ 
<>*•■'  THEN  GO  SUB  30:  IF  HF  =  !  THE 
N  LET  HF=8:  GO  TO  23S 
4-13  IF  RTTR  (2I.BC+I5  =126  OR  RT 
TR  C21..BC+2)  =126'  OR  RTTR  (21.BC  + 
3) =126  THEN  GO  TO  100© 

4-15  LET  Cl  =  Ci+CD:  IF  Cl  =32  THEN 
LET  Cl=© 

4-16  IF  Cl  =  -1  THEN  LET  Ci=30 
4-13  IF  RND  >.35  THEN  LET  CD  =  I  NT 

<RND*3-1) 

4-19  IF  UU>=3  THEN  IF  RND>.S  THE 

4-2©  LET~Li=Li  +  l7  IF\ioIl  THEN 
GO  TO  4-10 

4-25  IF  CI=BCtl  OR  Ci=BC+2  THEN 
LET  BFF  =  1 :  GO  TO  1000 
•4-3©  PRINT  RT  L<L2.C2>  .  C  (L2  .  CSS  ;• 

.  QO  TO  o-30  ' 

520  PLOT  BC *S+2©.6:  DRfiU  INK  3. 
PRPER  0.©. 123 :  PLOT  OVER  i.EC*B 
+2© . 3 :  DRRU  GvER  1 . G . 12© 

53©  IF  BC+2=C1  OR  6C+1=C1  THEN 
GO  TO  61© 

54-©  IF  SCREEN?  C5.BC+2)  <>"  "  TH 

EN  PRINT  RT  5.BC+1."  LET  5  = 

3+25 :  GO  SUB  20 

60®  RETURN 

610  PR INT  RT  LI..  Cl;  INK  7 .;  "yS;" 
RT  LI.  Cl;  "  **:  LET  Cl=-1:  LET  LI 

=  -l:  BEEP  .05,.  -30:  LET  L(L2.C2)  = 
— 1 :  LET  3=5+50:  GO  SUB  2© 

62©  LET  HF=1:  LET  BH=BH+1:  RETU 
RN 
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3-©Q©  REM  BRNG 

10  1<3  FOR  Y  =  1  TO  4.:  FOR  Z  =  1  TO  IS 
BEEP  .015.2S-2:  PRINT  RT  SI, BC 
;  INK  RND*?;  "  4=gV--  "  .  NEXT  Z 

1028  FOR  Z  =  10  TO  1  STEP  -2.:  BEEP 
.015.20-Z:  NEXT  Z:  NEXT  Y 

isos  Let  lb  =lb  —  i .  print  rt  0.,  it.; 
ink  5.;  LB 

104-0  IF  LB=©  THEN  GO  TO  ISOO 
104-5  IF  BFF=1  THEN  LET  BFf=S:  GO 
TO  4-3© 

1050  GO  TO  4-15 

106©  PRINT  RT  ©.IT;  INK  1;  PRPER 
T;  FLfiSH  1 ; LB 

1078  FOR  X  =  ‘l  TO  20:  PRINT  RT  X 0 
**  ;  NEXT  X 

10S©  BEEP  .2.5©:  BEEP  .25..  33 
10G0  FOR  X  =  1  TO  T:  PRINT  RT  X4-T.. 

e ;  ink  x ; ”  grhe  ouer 

GAME  OUER  " :  NEXT  X 

1100  BEEP  .2.50:  BEEP  ,25..^e; 

12TS  IF  5>H5  THEN  LET  HS=S 
128@  PRINT  RT  0,32-LEN  SIRS  HS.i 
INK  5:BS 

129©  IF  5=HS  THEN  FOR  Z-l  TO  5; 
FOR  X=20  TO  -2©  STEP  -2:  BEEP  .© 
1,X^  NECT  NEXT  Z _  __  __ 

rWNEXTWX  W  ~ 

1305  FOR  X=©  TO  2©:  BEEP  .©06,0: 
NEXT  X 

1310  FOR  X  =  i  TO  3S© :  NEXT  X:  BOR 
DER  6:  CLS  :  BORDER  0:  PRINT  RT 
0.26;  INK  5 : ”000000" : RT  0, 32— LEN 
5TR'$  HS;  INK  5.;HS:  GO  TO  110 
14.0©  STOP 

2©0©  REM  URUE  OUER 

2010  FOR  X  =  1  TO  2©:  PRINT  RT  X , 0 


'  ” :  NEXT  X 

2020  FOR  X  =  1  TO 
»,2;  ink  X;" 


T :  PRINT  RT  3fX* 
RTTRCK  i-JftUE  DESTR 


OYED" 

2030  NEXT  X 

204-0  PAUSE  150:  BEEP  .2,50:  FOR 
X=— 30  TO  35:  BEEP  . ©l.X:  BEEP  .0 


15.28.  NEXT  X;  BEEP  .2,58 

2050  FOR  X=!  TO  28:  PRINT  RT  X,0 


” :  NEXT  X 
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2Q6©  LET  UU=UU+1:  XF  UU=3  THEN  B 
ORDER  5 :  PRPER  © :  CL.S  :  BORDER  © 
:  PRINT  RT  ©.26;  INK  5;  “308S88"; 
RT  0,32-LEH  STR$  HS ;  INK  5;HS:  B 
EEP  .2,.  X©;  BEEP  .2.  -2.3:  LET  LB=L 
B  +  l 

2©7©  GO  TO  12© 


3©©S  REM  TITLE  PRGE 


3010  RESTORE  350© 

302©  RERD  X:  XF  X=9S3  THEN  GO  TO 
3  IS© 


304-©  RERD  Y:  PLOT  X,Y 

305©  RERD  X:  XF  X=-999  THEN  GO  T 

O  3020 

306©  RERD  Y:  DRRU  X . Y:  GQ  TO  305 
© 


3100  PRINT  RT  10.4-;  INK  5.”©  HEX 
L  PELLINRCCI  1983"' 

311©  PRINT  RT  13,7;  INK  2.  RRPER 
7;  "C  ONTRGES" 


312© 

PRINT 

RT 

15 , 2  ,  INK 

6 ; "Z  *  «  .  „ 

i  *  .  • 

. . . . . LEFT 

313© 

PRINT 

RT 

17,2;  INK 

6 . "X .... 

.  .  .  .  .RIGHT 

314-© 

PRINT 

RT 

IS  .  2;  INK 

6;  " <SPRC 

C.  m  ct  i 

»  m  a  ■ 

11 

315©  PRINT  RT  21.5;  INK  2.  PRPER 

7; "PRESS  RNY  KEY  TO  PLRY" 

T FT  V  -7-  rr?  4---^  *-%  —  ~  ~  -  -  -  —  — 

*—  —  <  t  . _ _  u  Ow  ■ — k  W  4.-  --  m  ;  1  j-  j  . 

DRRU  53  ,  ©  :  PLOT  176 . 7© DRRU  ?? 
..  ©  :  DRRU  0  ..  -58  :  DRRU  *  -4-5  .  ©  :  ROOT 
2.2:  DRRU  37.0 

3165  INK  2:  ROOT  ©,©3:  DRRU  255, 
0 :  DRRU  © , 16 :  DRRU  -255 . © :  DRRU 
0  .  -16 

3 17©  INK  4- 

3200  FOR  X=3©  TO  -3©  STEP  -1:  BE 
EP  . 01, X:  BEEP  .01. -X:  NEXT  X:  P 
RUSE  S 

321©  FOR  X=i  TO  21:  PRINT  RT  X.0 

.  it  * 


“ :  NEXT  X 
322©  RETURN 
34-0©  RETURN 

350©  DRTR  35 . 110 .0 ,S5 ,30, -14, -3S 
..  -14-  -  33  .  —14-  -30..  — 14-  .  -539 

351©  I>RTR  56.110,0,55,-995 
352©  ORTR  105 , 110,9 , 56 , 3© , -14 , -3 
©  .  -14-  .30  .  -26  ,  -090 

353©  DRTR  151 .118,0, 56  ..  3©  .«  -20  .«  -3 
© . -28, -999 
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354©  DRTR  18S  ,  1  ie  .  36 , 28  ,  -36 5S 
,28 , -929 
378S  DRTR  993 


400©  REM  LRNDED 

4©1©  BEEP  .2.3:  BEEP  .  15..  -1:  BEE 
P  .25,5 

4©2©  FOR  Z=1  TO  S3  _  „ „ 

4©3©  FOR  X  =  i.  TO  3:  FOR  V  =  3.  tv  10 
4©4©  ZF  L(X.Y)  <©  OR  s_CX..Y5  >2©  TH 
EN  GO  TO  4055 

- -  -  INK 


4©5©  NEXT  Y:  NEXT  X 
4670  NEXT  Z  _  ^  ~  RS: 

4SS©  FOR  Z=2S  TO  -30  STcr  -o:  B& 
EP  .81.2:  BEEP  .01,2*1.5:  BEEP  . 

61,-2+18:  NEXT  Z  „ 

409©  BEEP  .IS. -5;  BEEP  .15,-ie; 
BEEP  .13,1 

4©95  FOR  R  =  i  TO  5  „nTlrT 

410©  FOR  Z  =  1  TO  19  STEP  2:  PRINT 
RT  Z.©;  INK  RND*64i; “  ____  Si 

R-DS  HRUE  LANDED  "  :  BELr  •  0 

1  .  Z  *2  :  NEXT  Z 
4iQ5  NEXT  R 
420©  BEEP  2 . -I© 

430©  GO  TO  1666 
430©  STOP 
"?0©0  REM  t/C 

T@£©  RESTORE  7036:  FOR  R= 1  TO  46 
RERD  B:  POKE  32499+R,B:  NEXT  « 

7038  DRTR  33  ,  192 , 2 ,  IT .. © ,  SB  ,  2,  o2  , 
9 . 229 , 25 , 43 , 12S , 254 , 12B , 46,2i 
7640  DRTR  225 . 43 . 124,  151, 32,24.=: 
7056  DRTR  33 .223 .90,5,32..  125,254 
. 126 . 32 . 5 . 43 . 16 . S4S . 14 . 0 
>060  DRTR ' 2© 1 . 54 . 70 , 3 , 54 , 126 , 24 , 

227 

B©0©  RETURN 

9000  FOR  C=©  TO  95;  RERD  B :  PQKE 
USR  ‘R-+C..B:  NEXT  C 

*  »'  A  1  i  9  A  W  .«  0 

.  64. 

3030-  DRTR  0  ..  1  ^  2  ,  *?  ,  SB ..  1X4-  ISO  ^ 3 
004-©  DRTR  Q  .  123  .  04-  *  224-  ..  I5£ *  7o  ,  33 
«  0 

905©  DRTR  0 .«  ©  .*  ©  ,  0  , 4->  14  ,31,  233 
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9©  6© 
55 

3070 

9©s© 

9090 

srq 

9i©0 

5 

9110 

33 

312© 

1 

930© 


DfiTfi 

DRTfi 

DRTR 

DRTR 

DRTR 


DRTR 


8  ..  5 , 2S  ..  28  ,  &£  .  12?  «  £55  ..  £ 

© ..  0 ..  ©  .,  © .,  15 , 55  „  252  ,  £55 
© ..  2  ..  ©  ..  © ..  16 , 6  ,  & .  255 
S  S  ..  4-2  ..  126  ..  4-2 ..  201. 34-,  2 

© ..  32  ,  S  ..  126  ..  35 ..  136  ..  ©  £5 

129  ..  72  ..  2  ..  15  13©  ..  6 , 54- ..  1 


DRTR  123 ,18,64,9  ..  54-  ,  16 . 2  ..  16 


RETURN 


We' IL  now  have  a  look  at  what  each  part  of 
the  program  does: 

10:  this  skips  over  the  following 

subroutines,  which  are  at  the 
beginning  for  maximum  speed 

20:  subroutine  to  print  score 

30:  this  moves  the  Laser  base.  If  the 
space  key  is  pressed,  control  is  sent 
to  line  520 

50:  this  is  the  beginning  of  a 

subroutine  which  is  called  when  only  a 
few  birds  are  left.  It  locates  the 
first  Living  birdman,  and  selects  it 
to  swoop  down.  If  there  are  no  birds 
left,  WF  is  set  to  1  to  tell  the  main 
loop  what  has  happened 

80:  an  'additional  hazard'  subroutine 

90:  makes  room  for  the  machine  code 
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110:  game  initialisation 

120  -  160:  wave  initialisation 

200  -  235:  sets  up  the  birds 

240  -  255:  display  birds 

290  -  320:  makes  a  few  birds  flap  at 

random 

317:  checks  for  a  whole  line  of 

crates;  also  scrolls  them  down 

318:  checks  for  a  collision  between 
the  base  and  a  crate 

330:  selects  next  bird  without  using 
the  random  selection  routine,  see 
subroutine  50 

340:  checks  for  end  of  wave 

400  -  404:  selects  a  bird  at  random, 

and  sees  if  it  exists 

410  -  420:  the  main  loop 

411:  drops  a  crate 

419:  if  a  bird  is  a  mutant,  it  may 

move  upward 

520:  fire  routine 
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61 0  -  620:  exploding  bird 

1000  -  1050:  base  hit  routine 

1060  -  1310:  game  over  routine 

2000  -  2070:  'attack  wave  over' 

routi ne 

2060:  start  of  mutant  waves 

3000  -  3210:  title  page  routine 

3500  -  3700:  data  for  title  page 

4000  -  4300:  this  routine  is  called 

when  the  planet  has  been  completely 
covered  by  crates;  it  causes  the 
birdmen  to  change  color  and  slowly 
land 

7020:  POKEs  the  machine  code 

7030  -  7060:  data  for  machine  code 

9000:  sets  up  UDG  characters 

9010  -  9120:  data  for  graphics 

characters 

Finally,  here  is  a  list  of  the  main 
variables  used  in  the  program: 

HS  -  high  score 
BC  -  base  position 
S  -  score 
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LB  -  bases  Left 

VM  -  wave  number 

HF  -  hit  flag  (1  -  yes,  0  -  no) 

WF  -  wave  over  flag  (1  -  yes,  0  -  no) 
L(3,10),  C[3,10)  -  positions  of  the  30 

bi rdmen 

BH  -  number  of  bi rdmen  hit 
LI, Cl  -  position  of  swooping  bi rdman 
CD  -  horizontal  direction  of  bi rdman 

As  with  most  programs  in  this  book,  there 
are  many  things  which  can  be  changed  to 
suit  your  own  needs.  For  instance,  the 
random  numbers  can  be  changed,  thus 
changing  the  probability  of  various  events 
taking  place  (for  example,  lines  411  and 
419).  The  screen  displays  can  also  be 
changed  at  various  stages. 
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Chopper  Squad 

Action  is  the  name  of  this  game  from 
Malcolm  Young.  You  are  in  charge  of  a 
rescue  helicopter  flying  above  the  desert. 

You  have  to  save  as  many  soldiers  as  you 
can  before  you  run  out  of  fuel.  You  can 
either  pick  up  a  soldier  by  landing  on  him 
for  50  points,  or  for  a  faster  and  easier 
pickup,  use  the  helicopter  skyhook  by 
pressing  "1"  when  you  are  exactly  two 
spaces  above  the  man.  This  will  get  you  25 
points. 

You  can  also  use  the  skyhook  for  clearing 
trees.  However,  in  doing  so  you  reduce  the 
helicopter's  cover.  This  cover  is 
important  as  it  hplna  qhiolH  vm»  from  fho 

people  who  come  along  in  jeeps  from  time 
to  time  to  shoot  at  you.  They  can  only 
shoot  straight  up,  and  you  can  destroy  the 
jeeps  by  simply  dropping  bombs  on  them. 
Hardly  seems  fair,  does  it.  You  can  only 
bomb  them  while  in  the  sky,  and  you  do  so 
by  pressing  "1"  again.  (The  program  will 
know  whether  you  want  the  bomb  or  the 
skyhook,  which  is  why  "1"  is  use  to 
trigger  both.) 

After  you  pick  up  a  man,  the  ambulance 
turns  black  and  you  can  then  gain  a  bonus 
of  100  points  if  you  can  get  the  man  to 
the  black  ambulance. 
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To  add  to  the  things  you  have  to  keep 
track  of  in  this  program,  you'll  see  (from 
time  to  time)  a  fuel  truck  somewhere  along 
the  bottom  of  the  screen.  If  you  manage  to 
bomb  this,  you'll  gain  20  fuel  units  as 
well  as  10  points. 

CHOPPER  SQUAD  ends  when  you  either  run  out 
of  fuel  or  when  your  lives  have  all  been 
used  up.  There  is  a  'hall  of  fame'  at  the 
end  of  the  program,  which  you  can  easily 
extend  to  five  places. 


3  GO  SUB  55© 
10  REM  a  =«*  k=S 


i  =* 


j=©  1=5 


d  ft  = 
j»  =y  n  = 


f  =— 
o=^ 


Q  =  h  = 

?|f  DIM  Dili  h  (5) 

30  LET  t  r  =0  :  LET  £  f  =0  :  LET  dp  m 
0:  LET  3  C -0 :  LET  pK=0:  LET  lives 

~3-:Z  ^  -  DAPFR  7 :  INK  ©:  B 

RIGHT*"  ©V*'  CLS  ^  , 

110  LET  Jf=0:  LET  ln=l©0:  LET  t 

"'i20*"EORDER  5:  PRPER  5:  INK  0:  C 

30  LET  L  $  =  "*-♦"  •-  LET  r$  =  ”  :  \~ 

ET  a  *  =  "138"  :  LET  =  :  LET  = 

:  LET  t$  =  "88w" 

14-0  FOR  9=11  TO  21:  PRINT  PRPER 
6;  RT  g  ,  ©.;  " 

" :  NEXT  S 

ISO  FOR  1=0  TO  Si:  PRPER  S:  LET 
r=INT  (RND  S-4-)  :  PRINT  INK  2j  RT  1 
6-r  ^  t  ;  ’*/**.;  INK  4-;  RT  15 -r  ..  t;  : 

NEXT  t 

150  LET  y=INT  IRND*I0J+1:  LET  X 
=INT  (RND *30) :  LET  a=l 
170  PRINT  PRPER  6; RT  ll,a-l;"  " 
;  INK  2-£*pR;BT  11, a; a$ 

175  LET  fuel  =  fuel-l:  PRINT  PP.PE 
R  0.;  INK  7.:  BRIGHT  1;  RT  ©..©;"FUE 
L  =  " f  u  e  l RT  ©  ,  I©;  "SCORE  =~ 3  c 
*  hT  ©  ji  ^©.;  "Ll0E5  =  "  ;  lives 
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178  IF  f  U e  l  <  ©  THEN  GO  TO  100© 
180  LET  a=a+0.S  AMO  <a  Y30>  :  IF 
NOT  a  THEN  LET  p  k  =a 

190  PRINT  OUER  S.;RT  y.x;‘* 

191  IF  y=ll  RND  X  +  1  =a  THEN  LET 
=  £=SC+50:  LET  p  R  =© :  BEEP  «5,--5 

200  LET  y =y + t INKEY$="6"3 - t INKEY 
$  =  ,'7,,3  :  LET  X =X + « INKEY$=~8" > - < IN 
KEY*="5"> 

205  IF  y  <11  THEN  LET  X  =X  +  ( INKEY 
$="8") - ( INKEY*=”5"3 
210  LET  y =y + Cy <03  - (y >21)  :  LET  X 
=X  +  (X  <03  -  (x  >30) 

220  LET  C  =RTTR  Cy..X):  IF  CO  4-0 
RND  C<>4-3  THEN  GO  TO  1000 
230  LET  C=RTTR  <y  ,X+1)  ;  IF  C  <  >4- 
0  AND  C  0  4-8  THEN  GO  TO  100© 

24-0  PRINT  OVER  0;,  ft T  y  y  x h  $  :  BEE 
P  .1,-10:  PRINT  OVER  1;  RT  y.x;r$ 
24-S  IF  RND  <  .  3  AND  NOT  pR  THEN  L 
tT  S-  f  -1 

24-S  IF  S  f  THEN  GO  SUB  4-20  +  3P 
250  IF  RND <.5  THEN  LET  JF=1 
250  GO  TO  jf*ln+l?0 


270  LET  jy=16+INT  CRHD»4-)  *1 
280  LET  ln=150 

^ oftv  i  i=rnr  ;  -dmpv  -  )  Ir»  s  .  ’S  >  — 

? 7  d  <  m  5  } 

300  LET  q$=P  $  RND  j  d  - 1 :  LET  J$= 

qg+tj«  RND  jd=-i)  :  IF  RND  < . 3o3  T 

H305LIF  tf =1  THEN  LET  q  $=  <  t  4j ( 2  T 
O  3  RND  jd  =1 )  +  1 1  $  t  TO  2)  RND  jd- 

310  LET  jX  —30  RND  Jd=-1  <t 

320  PRINT  INK  0; RT  jy , 01  „ 

325  PRINT  IN K  1;  RT  jy,Jx;q$ 

330  LET  jx=jx+jd 


34-0  IF  jx=0  OR  jX  =31  THEN  LET  t 
.0=100:  LET  tr=0:  LET  j  f  =0 :  PRINT 
PR PER  5;RT  jy  ,  0; " 

•'  :  GO  TO  170 

350  IF  y  <10  RND  INKEY  $  =  **  1"  THEN 
GO  TO  510 

380  IF  tr=l  OR  NOT  tjx>=INT  X-l 
RND  jx<=X+l)  THEN  GO  TO  170 
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X  L  Xl-n-Nl} 


370  LET  e=y+l:  FOR  f = jy-1  TO  e 
STEP  -2:  LET  b=ATTR  (  i  ,  Jx  +1)  :  IP 
b=4©  OR  b  =46  THEN  PRINT  PAPER  6 
INK  2;  RT  f,  jx+l;".”:  BEEP  .  1 ..  f 
:  PRINT  INK  0; AT  f,jx+l;"  " :  NEX 
T  f 

380  PRINT  INK  0;  RT  f  ,  jX  +-2,‘  "  " 

390  IF  (jx+l=x+I  OR  jx+l=x5  AND 
f  =y  THEN  BEEP  2,-5:  GO  TO  1000 
430  GO  TO  270 
4-10  REM  Transport  soldier 
423  LET  Sdx=INT  (RND*30) +1:  LET 
Bdy -12+XNT  iRND*5i :  LET  dp  =20: 
LET  t  =INT  (RND*20)  +20 
430  PRINT  INK  2; RT  Sdy,SdX,"W": 
BEEP  .25,0 

44©  LET  t  =  t  — 2 :  PRINT  RT  sdy,SdX 
;  IF  NOT  t  THEN  LET  Sf=0:  LE 

T  dp  =0 :  RETURN 

450  IF  y=sdw  AND  x+l=sdx  THEN  L 
ET  sc=sc+50:  BEEP  1,5:  LET  S f =0 : 
LET  dp =0:  LET  pK=l:  RETURN 
460  IF  INKEY*  <  .VI"  THEN  RETURN 
470  PRINT  RT  y  +2  . x  +1,  "  j.  ” ;  RT  y +2 

V  +  ^  J  ”  1  " 

' i80J  IF  sdy  =y  +2  AND  sdx=x+l  THEN 
FOR  m=y+2  TO  y  STEP  -2:  PRINT  R 
T  m  ,  X  +  2,-  :  BEEP  .3,0;  PRINT  RT 

9f.  ,  X  +2;-  **  ••  :  HEXT  W- -  l  FT  -ri  *  —  9  »_F 

T  i t  =u:  Lti  dp  =0 :  LET  SC-SC +25 
49©  PRINT  RT  y+l,X+l,;”  ",AT  y  +2 

''  500  *  RETURN 

520  LET  e  =  jy  :  FOR  f  =y  -s-i  TO  e  :  L 
T  b=RTTR  :  IF  b=40  OR  b  = 

6  THEN  PRINT  PAPER  B;  INK  2.:  RT 
, X  +2 ,  "  ; CHR*  S :  BEEP  .1,30-f: 

PINT  INK  0.:  RT  f,X+l,"  NEXT  f 

GO  TO  530 

520  PRINT  INK  0, RT  f,X+2,”  " 

530  IF  b  =49  THEN  BEEP  2,-5:  LET 
sc=sc+10:  LET  foel  =  fue l +2S  * (tr  = 
).  PRINT  RT  J y  ,  j X ;  "  LET  s 

=0 :  GO  TO  340 
540  GO  TO  27© 

560  REM 
570  RESTORE 

560  DRTR  "a" , 2, 2, 2,255, 255, 195, 
219,24 

59©  DRTR  "b” , 25, 124,6,63,63, 295 
,229,24 
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©0©  DRTfi  “C" 

5..  195J,219.,S4 
&1©  DRTR  ”d  ** 

95 .219 .24 
620  DRTR  "e  " 

27.,  36.,  126 
630  DRTR  “ f “ 

0.,  0 

64-0  DRTR  ”g“ 
65®  DRTR  "h" 
660  DRTR  ”i " 

195.219.24 
670  DRTR  ”j” 

5.195.219.24 
660  DRTR  **  K  ** 

34  53 

690  DRTR  "l” 
, 22 , S3 , 170 
700  DRTR  " 

IS,  16 

710  DRTR  "n** 

20,54 

720  DRTR  "O" 
£6,60,24 
730  DRTR  "p" 

5. 195. 90.24 


,  12S ,  12S ,  12 S , 255 , 25 

, 46 , 12 , 10 , 252 , 252 , 1 

,0,16, 124 , 254 , 255 , 1 

,0,0 , 192 , 199 , 255 , 1 , 

,  255 ,©,©,©,©,0,0,© 
,7, ©,0, ©,©, 0,0,0 
, 126 , 97,97, 255 , 255 , 

, 255 , 239 ,199, 239 , 25 

, 16 , 16,16 , 16 , 16 , 15 , 

,  IjS  ,73,1  Its  ,  1SS  ,  1 14 

, 36 , 36 , 24 , 16 , 16 , 16 , 

, 153 , 90 , 76 , 56 , 6,20, 

,231,126,24,24,60, 1 

,  126 , 255 , 255 , 255 , 25 


970  FOR  C  =1  TO  16:  RERD  c$ 

98©  FOR  e=0  TO  7:  RERD  n:  POKE 

-rn  rf-  =  ,r>  .  MC-v'T 


990  NEXT  C 
995  RETURN 
100-0  PRINT  INK  2; 

:  ;  BEEP  1,1 

101©  PRINT  INK  0;  PLfiSH  ©; 
3;flT  y,Xj”  "  :  LET  y=INT 


FLASH  1;RT  y 


PAPER 

<RND*1 


0J+1:  LET  X=INT  tRND*30J 
182®  LET  li ves=li VSS -1 
1025  IF  fueui  THEN  PRINT  FLRSH 
li “OUT  OF  FUEL?, I'M  RFRhID  THIS 
IS  THE  END”:  GO  TO  104© 

103©  IF  lives  THEN  GO  TO  170 
1040  IF  SfihiS)  THEN  GO  TO  120© 
105©  INPUT  "Please  enter  your  na 
for  the  score  table”, n$ 

1060  FOR  r  =5  TO  1  STEP  -1:  BEEP 
.  1 ,  r  :  IF  soh(r)  THEN  NEXT  r 
1070  FOR  g  =5  TO  r+2  STEP  -1:  BEE 
P  .1,9:  LET  hlg)=h(g-l):  LET  S  $f  C 
9i=S*(g-l):  NEXT  g 
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10S0  LET  h(g)=sc:  LET  s$(g)=n$ 
1030  BORDER  1:  PAPER  2:  INK  7:  B 
RIGHT  1:  CLS 

111©  PRINT  INK  5; RT  3,2; "TODRYS 
CHAMPIONS  ARE-" 

1120  FOR  a  =1  TO  5  :  BEEP  .5,  a:  PR 
INT  INK  0.;  RT  7+a,8;st(a)  "  **.:  H  C  a 

:  NEXT  a 

120©  PRINT  FLASH  1;  PAPER  4-;  INK 
0;RT  16,3; "DO  YOU  URNT  TO  FLRY 
-ROPIN'?  “ 

1 2 10  IF  INKEY  $= "n "  OR  INKEY $  =  ”N" 
THEN  GO  TO  124-© 

1220  IF  INKEY$=U"  THEN  GO  TO  121 

© 

123©  GO  TO  30 

124-0  BORDER  7:  PRPER  7:  INK  0:  6 

RIGHT  0:  STOP 
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Snake 


Written  by  David  Perry,  SNAKE  is  a  game 
demanding  a  steady  eye  and  concentration. 

The  object  of  the  game  is  to  lead  your 
snake  around  a  garden  -  surrounded  by  an 
electric  fence  -  while  getting  the  snake 
to  eat  mushrooms.  Each  mushroom  makes  the 
snake  grow  longer,  and  you  must  make  sure 
you  do  not  hit  the  snake's  tail.. .or  the 
game  wi  1 1  end. 


Here's  what  it  looks  like  in  action: 


37 


And  here's  the  Listing  for  SNAKE: 


2©  GO  SUB  220 

25  REM  di 

3©  LET  2-0.  IMUERSE  3 :  BRIGHT 


210  PRINT  RT  2T,2;"U=£  fe  t:4i  3  ,  Z 
=  I&p  for  up,do»n PR xr-rr  “  left 
end  right,  Esch  tsse  you";  PRIN 
T  "  eat  a  toadstool  the  s n as e  »i 
II";  PRINT  "  grou  longer , " ;  PRIN 
T  "  BE  CAREFUL  NOT  TO  BUMP  INTO" 
22©  PRINT  “  YOUR  OWN  BuOY  OR  TH 
E  FENCE)  )  !  ** 

2  30  PRINT  :  PRINT  INK  3;  ** 

BBTw  ii,  'fa  ii^Tiiij  i\H  ,lflj  ~  ~ 

14-0  PRINT  RT"  IS,5;  INK  I;  "ENTER 
LEVEL  OF  PLfiY“ 

25©  PRINT  RT  12,11;  INK  1/2;  "Cl 
TO  9)  " 

255  REM  Level 

25©  LET  R$=INKEY$;  IF  R$=“"  THE 
N  LET  I =1+1 :  IF  I  >7  THEM  LET  X=© 
27©  IF  R$< "1“  OR  Rl *>"3"  THEN  GO 
I  O  2  4-0 

IS©  LET  L=URL  R£ 

190  INK  © 

20©  GO  TO  35© 

2©5  REM  iiHUser  defined  Chrs 
22©  FOR  R=2  TO  5 
22©  PERL 

23©  FOR  N =©  TO  7 
21©  RERD  B 
25©  POKE  USR  RS+N , B 
26©  NEXT  N 
27©  NEXT  R 
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2S0  DfiTfi 
3 , 195 , 102 , 
29©  DRTft 
s  24- 24- 
300  DRTR 
139..  35..  9© 
31©  DRTft 
36,  135 
320  DfiTfi 


”fi” , 159  , 102  , 195 , 153 , 15 
159 

“B”  .0 ,60,  126  ,  153 £4- ..  24 
t!C“  ,90,36,  169,182, 182, 
"D"  ,  0 , 34-  ,  34- ,  55 , 55 ,65,1 
“E  ”  ,  28 ,96,28,3 , 26 ,96,2 


8  ^ 

'"33©  LET  HS=8 
34-0  RETURN 
35©  LET  B$  =  *P” 
36©  BORDER  7 
370  PAPER  7 


380  LET  fi=0 
390  LET  SC  =0 
4-0©  CLS 

4-05  REM  ***screen  set  up 

41©  print  prr  0,©;  ink  i;  ink 

5;  '•  <  SCORE  :©>*•;  INK  1 ;  "»>  “  ;  INK 
2 }  "SNAKE"  ;  INK  1  ;“<#**;  INK  4;  t"  < 
*•  RND  HS  <  1©©>  ;  ’HI  -SCORE :  ** ;  HS;  <  “  > 
**  fiND  H5-S188.1 
420  FOR  N  =  1  TO  2@ 

430  PRINT  fiT  N , © ;  INK  1;“^ 

-C.«« 


440  NEXT  N 

4-5©  PRINT  RTF  21,8;  INK  I; 


460  LET  X-10 
470  LET  Y  =  19 
480  LET  B$=“" 

490  FOR  N =1@  TO  IS 


888  LET  Pi 

510  PRINT  BRIGHT  1;  INK  2;ST  1© 

,  n;  **isr 

520  NEXT  N 
530  GO  SUB  800 
540  LET  £>?=  INKEY  £ 

545  REN  -s-s^Key  input 
550  IF  D$="p”  OR  D5=:‘'q “  OR  &$=” 

i”  OR  D$=“S“  THEN  LET  B$^D= 

560  LET  X=X+«B*=*“X“> 

570  LET  Y=YPiB$='*P  ‘} 

58©  IF  X =21  OR  X=©  THEN  GO  TO  © 

50 

59©  IF  Y'  =31  OR  Y  =0  THEN  GO  TO  B 

5© 

500  IF  STTR  fX ,Y>  -122  OR  X  =22  O 
R  Y =32  THEN  GO  TO  S3© 

610  GO  SUB  750 
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+  STR 


62S  LET  Cf =STR$  X 
630  IF  X<10  THEN  LET  C$  =  "  ** 

S_X  _ 

tj4-0  LET  D$-bi  R|  V 
650  IF  Y<10  THEN  LET  D$  =  "  **  +STR 

$  Y 

66©  LET  XI=URL  l  TO  2) 

670  LET  V 1  =URL  R$C3  TO  43 
66©  IF  RTTR  CXI ,Y1) < >122  THEN  G 
O  TO  70© 

690  PRINT  RT  XI  ,YI;  **  ** 

695  REM  fiiPrint  snafce 

TO©  PRINT  BRIGHT  1.  INK  2;  RT  X 

v  ;  *'^'* 

710  LET 

72©  IF  B -0  THEM  LET  R5=R$f5  TO 

73©  LET  fi=fl-ca>0j 

74-0  GO  TO  54-0 

75©  LET  M=P.TTR  CX,¥J 

76©  IF  H<>6©  THEN  RETURN 

77©  LET  R=R*L 

76©  LET  SC =SC+L 

730  PRINT  ST  0,0;  INK  5;  "-t  SCORE 
:  ” ;  sc;  “  >  " ;  ink  l ;  “A*>  “ ;  INK  2;  “SN 
RKE".;  INK  1;  “  <.■¥>“  ;  INK  4-;  **■  •CHI-SCO 
RE:  "  ;  hs ;  C  **  >  “  ftfffi  HS  -;I00- 
300  PRINT  PAPER  7;  INK  T;  RT  I NT 
*2  INT  :  HN  t:  3  3  t-2  :  “M '7 

SI©  FOR  n =5©  TO  -2©  STEP  -I©:  & 

EEP  e0I;n:  NEXT  n 
62©  RETURN 

63©  LET  X=.X- fX=22->  +  rX=-lJ 
34-©  LET  Y=Y- CY=3SI  +  CY=-1) 

SS©  FOR  F  =5©  TO  -2©  STEP  -5.  BE 
EP  . ©2 , F :  NEXT  F 
655  REN  S-*S-En-d  Of  y  3  £>  3 
66©  IF  SONS  THEN  LET  ,HS=SC 
67©  PRINT  RT  10,18;"ffISH  SCORE: 
■* ;  HS 

880  PRINT  RT  IS, II; “Pf ESS  3  Kay 
1  «* 

S3©  LET  X=© 

9©©  PRINT  RT  X,Y;  INK  BE 

EP  .01,1*2 

905  REM  ** &Pcint  scores 
31©  PRINT  RT  3 , S ;  INK  I;  FLASH 
l; ” >You  scored  SC; “  points. <" 
920  LET  e$=INKEYt :  IF  Q£  =  ””  THE 
N  LET  1=1*1:  IF  X>7  THEN  LET  I=© 
33©  IF  SS=""  THEN  GO  TO  20© 

24-©  CL  S 
359  Gl_>  :  ©  3© 
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Dodgems 

This  fast-moving  action  game  is  by  Raymond 
Blake.  You  steer  your  car  around  a  track 
with  four  lanes,  passing  over  flags  to 
gain  points.  At  the  same  time,  you  are 
trying  to  avoid  the  suicidal  car 
controlled  by  the  computer,  which  travels 
in  the  opposite  direction  to  you,  trying 
to  spoi L  your  fun . 

You  can  change  Lanes  in  the  four  gaps  in 
the  track,  and  you  can  change  tracks  as 
many  times  as  you  like.  The  suicide  car 
can  also  change  lanes,  but  it  is  limited 
to  moving  a  single  lane  at  a  time.  Despite 
this,  you'll  find  this  a  very  difficult 
game. 

Near  the  start  of  a  run,  you'll  gain 
points  for  red  flags,  which  turn  yellow  as 
you  pass  over  them.  When  you've  run  out  of 
red  flags  [or  you  just  feel  like  a  change) 
passing  over  the  magenta  flag  will  allow 
you  to  gain  points  from  yellow  flags,  but 
will  also  allow  your  Kamikaze  opponent  a 
chance  to  catch  up! 

Another  magenta  flag  will  appear  in 
another  part  of  the  track,  and  passing 
over  it  will  once  again  change  the  color 
of  the  flags  which  allow  you  to  gain 
points. 

20-  FOR  i=i  TO  5:  REfiO  FOR 

.i=©  TO  7:  REfiD  2.  POKE  U5S 
Z  :  NEXT  j  :  NEXT  i 
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35  L_: 


EET  Cl 


C  =  0 
:  B 


4-0  BORDER 
RIGHT  1:  CLS 
50  PRINT 

uuumtfmttnntm-" 

,50  PRINT  INK 

1111  111111111111“;  INK  7/"»# 

7@  PRINT  ”$$»";  INK  INK 

7 ;  ■■  tttrjtssrsstresma  ttmtstttttsrirsrttit"; 

INK  S;  ”1  •'.;  INK  7 

75  PRINT  INK  a;"1";  INK 

Ji  "«-"i  £  ;  “1111111111  1151 

t  11  111";  ink  7;  ”tr  .  ink  £;  "t'V  I 

NK  7: "tttt” 

©0  PRINT  •*»«";  INK  2,  •'  1  '•  ;  INK 
7;  INK  2;”^“.'  INK  7 ;  "trtnttNtSra 

3 st  stsstmtssmtstt"';  ink  a;"1";  ink 

7;  INK  S  ,  "1  "  ;  INK  7  ;  "458  “ 

85  PRINT  "**•";  INK  INK 

7;  **»**.;  INK  a;"1'*;  INK  7;"»",  ink 
a;  "11111111*  _  1H1 1111";  ihk  7 

:  "»**:  ink  £;"1";  ink  7;  “it";  INK 

a  :  ”1  *  INK  7  ;  “Stir* 

9©  PRINT  "ttst”;  INK  a;  "4";  INK 

7  ;  INK  a ;  ***”  ;  INK  7 INK 

a;  ”1";  ink  7.  '-asttsss+ts  '  aaaasttt 

INK  a ;  "1";  INK  7.;  "8”.;  INK.  a^ 

:  "e»" 

95  PRINT  "SS";  INK  S;"1*\;  INK 

7;  "It**;  INK  a;  ”1";  iMK  7.;  ;  INK 

.  iNK  ;  tt  i  S”*1  ■if  "¥  Till  1 

mill";  ink  7;  ink  s;  "*[ 

";  INK  7;  ”tt"  ;  INK  a;”1";  INK  7;” 

a”;  ink  a;"1".-  ink  7c"stsr~ 

10©  PRINT  tttt";  INK  a;"1‘;  INK 
7;  " tt"  ;  INK  a:"f";  INK  7.  “St"*  INK 
T^iK  7;  "tt  INK  a;  "*".  IN 


1 


‘  *§“- 


INK 

INK  T:  "m?" 

115  PRINT  "$m  ^ 

If  mfc 

128  PRINT  INK  2: 

ink  t;  "tr  ’  it 

INK  T; 


INK  2 


INK 
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125  PRINT  ”88”;  INK  2; ” 

;  INK  7;  ”8  8”;  INK  2; 

"  INK  7; ”88” 

130  PRINT  ”88”;  INK  2;  ”1”;  INK 
7;  ”8”;  INK  2;  ”1";  INK  7;  "it";  INK 
2;”1”;  ink  7; ”8”;  INK  IN 

k  7;  ”88888888888888”;  ink  2;”1”; 

INK  INK  2;”1”;  INK  7;  ”8" 

;  INK  2 ;  ”1  “ ;  INK  7;  "8";  INK  2;  ”1 
” ;  INK  7; ”83“ 

135  PRINT  ”88";  INK  2;  ”1  ” ;  INK 
7 ;  ”8” ;  INK  2; ”1”;  INK  7; ”8”;  INK 
2;  ”1  ” ;  INK  7;  ”8”;  INK  2.;  ”111111 
111111";  ink  7; "8”;  ink  a.;  "i 
INK  7 ink  2;"1”;  INK  7;” 
it”  ;  INK  2  ;  ”  1 "  ;  INK  7.;  ” 88” 

14-©  PRINT  "88”;  INK  2;"1”;  INK 
7;  ”8”;  INK  2;”1”;  INK  7;  ”8”;  INK 
2;  “1”.;  INK  7.;  ”8888888  888888 

a”;  INK  2:“1";  INK  7; ”8”;  INK  2; 
"1";  INK  7;  "8”;  INK  a;"1“;  INK  7 
;  ”88” 


■8” 


"1; 


INK 


88”;  INK  2; ”1”; 

INK 

; ”1 " ;  INK  7; ”8” 

INK 

'  „  immi"; 

INK  7 

” 1 ” ;  INK  7; ”3”; 

INK 

"83“ 

S3”;  INK  2 ; ” 1 ” ; 

INK 

7;  ”8”;  INK  2  ;  ”  1  ”  ;  INK  7.;  ”8888888 
88  888888888”;  INK  2 : ” 1 ”;  INK 

7;  ”8”:  INK  2;”1”;  INK  7;  ”88” 

17©  PRINT  ”88”;  INK  2;"1”;  INK 

7.;  ”8”;  ink  2:  ”1111111111  1111 

mill";  ink  7;  INK  2;”1”;  I 

NK  7; ”88“ 

180  PRINT  *88”:  INK  2  : “1 INK 
7;  "88888888888  88888888888“.; 

INK  2."1”;  INK  7: ”88” 

190  PRINT  ”88”;  INK  2; ”11111111 
mi  imimmi”;  ink  ?,  '•»© 


20©  PRINT  ”88888888883888888888 
3  88388838333  " 

210  LET  X=20:  LET  y=2:  LET  X 1=1 
:  LET  yl=23;  LET  ll=5b ;  LET  f  US 
=0 

22©  PRINT  RT  X,UC  INK  3;  ”:f£“  ; RT 
XI  ,yl.  INK  5 .  •  RT  3 22;  INK  3; 

Ff  OSH  1  m* 

S3©  tier*  Une  =  1:  LET  lanei=l 
248  PRINT  RT  18,11;  *  ^:Of£'\;PT  1 

I . 1©; “Hi s core  " ; hs 
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25©  LET  3$=”S”:  LET  :  LET 

b$=”S“:  LET  n$='*3?" 

33S  IF  f  laC'5-3  THEN  SO  TO  583 
310  IF  SCREENS  tX * (a$=”6" jr  -  fa $  = 
’*?")  ,y  +  !3S  =  "8")  -  saf=  '5")  J  <  >"#**  T 
HEN  GO  TO  4-S3 

323  IF  3=="5"  THEN  LET  af="6": 

LET  S$="f "  :  GO  TO  4-0© 

330  IF  a  $  =  "S*'  THEN  GET  a$  =  ''8"; 
GET  :  GO  TO  4- SO 

34-0  IF  a$=-’?”  THEN  GET  a$  =  "5": 

GET  =  GO  TO  4-©S 

35©  IF  a$  =  *  S*‘  THEN  GET  af=  '?”: 

'~4©1  IF  C  X  >  S  RND  X'<13i  OR  £y>13 
RND  Ms  IS?  THEN  PRINT  RT  X,y;  INK 
Cl.;"  GO  SUB  OS©:  GO  TO  4- IS 

4-©2  LET  3  =R1  PR  (S  -r  la  $  =  )  —  i -3 $  = 

**T"i  ,  y  +  ca$  =  "3")  -  ‘S$="5"f  ;* 

4-S3  HRINj  RT  X y.;  INK  Cl  “t" 

4-35  IF  a  =105  THEN  GO  SUB  653 
4-07  IF  a  =64-  +  CI  THEN  LET  SC=SCtl 
4-1©  LET  X=X  Ha|="6 **?  -  ia$  =  ”7")  : 
GET  y  =y  +  ca$  =  **S”J  ~{a$="5") 

4-2©  PRINT  RT  X,y,  INK  4-;®$ 

4-3©  PR  INT  RT  10,1?;SC;  BEEP  .  S© 
1 , 2© 

4-5©  IF  X  — X 1  RND  y  =y  1  THEN  GO  TO 
S©© 

5©©  IF  fug>3  THEN  let  fiay  =  fLa 
■3  - 1  :  SEEP  .S2.2S 
51©  IF  SCREEN*  (Xi+ Sb$="5“3 - 4b$ 
=  '"?**)  ,yit  Sbf  =  "6“3  -  {b$=”5"i  i  <  i  '#*' 
THEN  b'Q  s  O  t;- OS 


520  IP  b$  = 

**5’* 

THEN  LET 

bSi^"T"  ; 

LET  n$='7fc^ 

GO 

TO  &©© 

53©  XF  = 

”6” 

THEN  I_ET 

bt^'5v'  : 

LET  = 

GO 

TO  5©e 

54-©  XF  = 

~Z-  1 ' 

THEN  LET 

b# =*'©'* : 

LET 

GO 

TO  580 

55©  XF  b$= 

fcl a11 

THEN  LET 

; 

LET  n  *  =  : 

GO 

TO  500 

553  XF  l  X  > 

S  RND  X  < 13  i 

OR  (4>13 

RND  y  < 18)  THEN 

PRINT  RT 

X  *  y  ;  *  ^ 

GO  SUB  930:  GO  TO  SIS 
601  IF  (Xl=9  RND  b$="6"J  OR  tyl 
=  14-  RND  fo$=**S‘*3  OR  i  X  1  =  12  RND  fe$ 
=  *'?'*>  OR  C yl  =  17  RND  S$  =  ”5">  THEN 
PRINT  RT  X'i.yl;  INK  cl;”  GO 

SUB  738 
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682  IF  i X 1 S  RHD  XitiSS  OR  ial> 

13  hHD  y 1 < IS)  THEN  PRINT  RT  Xi,y 
l:  IMK  Cl;"  **  :  GO  TO  61@ 

683  GET  Z  =nTTR  (XIt  i  b$="6‘'}  -  (bf 
=  "?“!  ..  •i4l-f-Cb^t="6"St  —  (  G  $  =‘  o')  ) 

6S5  PRINT  RT  XI..  yl.;  INK  (  Ui-64 
)  -(126  RNT  Zl-64>SJ5;  FGRSH  1  RN 
D  Z  1-64-  >8;  "i  " 

636  GET  21=2 

SIS  GET  X  1=X  1  f  (  b$= i  -  (  b$  =  "7"  ) 

:  GET  Ml=yit(b$="S"3  -«bS="5"S 
520  PRINT  RT  xl,yi;  INK  5.;  n  $ 

635  IF  X  =x  I  RND  M  =y  X  THEN  GO  TO 
880 

65©  GO  TO  3SS 


700 

IF 

isne  =  unsl  THEN  Return 

705 

PRINT  RT  XX.  yi;  INK  ci;**  '* 

£T  U 

n  e  i 

-Unsl  +  l  /h 

750 

LET 

Xl=XlfU(  I  fc$=”0")  -CE5=" 

S’*  )  3 

7  &0 

LET 

y  i=y  iFi  *  i  (b$=*-7 ■*')  -  (b$=” 

"  3  3 

TOO 

RETURN 

89© 

FOR 

i=25  TO  -10  5TEF  :  EE 

EP  . ©2 . i :  NEXT  i 
010  PRINT  RT  14- ,.2,.-  PRPER  4;  INK 
©.'  FLh5H  1  *'  P  ,*  £  :=.  S  30^  Key  for  3 

n  e  t«i  y  a  m  e  ** 

©15  IF  5  Ohs  THEN  LET  hS=SC 
823  IF  INKEY  *■<>”*'  THEN  GO  TQ  8£ 

m 

030  IF  INKEY  $  =  '*"  THEN  GO  TO  S3© 
04-5  GO  TO  35 

S50  LET  C=S-C:  GET  C 1=0- Ci;  GET 
S  e  =S  -  IB:  SEEP  .01..3S:  SEEP  .©1 

' S55  GET  f lay  =1© 

650  GET  SC=S’C+18 

67*0  GET  lin  =  XNT  CRNCT20}  Fl.  GET 
COt= INT  (RNDF3SJ Fl.  IF  CODE  SCR 
cEN$  Uin,COl3  <>Q  THEN  GO  TO  870 
07*5  PRINT  RT  Lin..  CO  L I  INK  3.;  FG 
RSH  i;  ”i  ** 

008  RETURN 

GO©  GET  i$=INKEY$;  IF  M > 13  RNO 
y < IS  THEN  GO  TO  350 
©05  IF  M  >22  THEN  GO  TO  92E 
©18  IF  i $="5"  RND  U ;S  THEN  GET 
y=y-2:  GET  iane=iane-l 
©is  IF  i$E='*S"  RND  y<e  THEN  GET 
y  =y +2 ;  GET  i-ane  — Lane  fi 
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3a©  RETURN 

S3©  XF  i $=  5"  RHD  y  >23  THEN  LET 

y=y-S:  LET  Una  =  Une+i 

S35  XF  i  $  =  ’*©"  AND  U  <29  THEN  LET 

y  +2  :  let  Lana  =  lane -x 

94-0  RETURN 

95©  XF  X  > 1 3  THEN  GO  TO  975 
95©  XF  iS='5"  AND  X <7  THEN  LET 

x=x+2:  let  Lane  =  Lane -s-i 

955  XF  RND  X  ;  i  THEN  LET 

x=x— 2:  let  lane = Lane -i 

970  RETURN 


S3© 

IF 

i  £  = 

X  =x 

+  H  : 

LET 

935 

IF 

i  $  = 

X  — X 

: 

*_PT 

998 

RETURN 

100©  DflTfi  " 
4-  ,  4 

101©  DATS  " 
3 , 25E . 153 
1320  DflTfi  " 
S3..  76 . 224 
103©  DRTS  " 
125 , S© , 24 
104-©  DATA  “ 
4-  «  1 1 4-  .  / 

5000  IF  F  la< 
3-1 


“6“  RNT  K (28  THEN  LET 
L  ane  =  lane -i 
”7'*  AND  X  5  14-  THEN  LET 
L ane=laneti 

a  •*  ,  12  ,  6© ..  124- ..  63  ,  is  ,  4  , 

b  "  ..  24  ..  9© ..  125  ..  2©  ,  24 ,15 

C " , £24 , 76 , 68 , 255 , £55 , 


5>©  THEN  LET  f I3g=f U 


9  : Sph i C  R 

graphic  B 
g  raph i c  c 
graphic  d 
graphi c  E 
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Zombies 


Zombies,  from  David  Perry,  is  a  game  in 
which  you  must  Lure  the  Zombies  into 
swamps.  They  are  blind,  and  always  move 
towards  you. 

Full  instructions  are  provided  within  the 
program.  Use  the  cursor  keys  to  move 
around.  Note  that  the  pound  signs  in  this 
listing  should  be  entered  as  hash  (#) 
signs . 

1  REM 

2  REM 

3  REM  >  ZOMBIES  < 

4  REM  ======== 

5  REM 

6  REM  COPYRIGHT 

7  REM  DAVID  PERRY 

8  REM  1 983 ! 

9  REM 

1 0  REM 

11  LET  NUM-10 :  DIM  NlNUM+1):  D 
IM  N$  (NLJM+1 . 8)  :  FOR  N=1  TO  NUM: 

LET  N(N)»1100-(N*100) :  LET  N$(N> 

=  " SPECTRUM":  NEXT  N 

12  BORDER  7:  PAPER  7:  INK  Os  B 
RIGHT  0:  CL £3 

13  LET  LEV-5:  GO  SUB  66 

14  LET  SC-0 

15  BORDER  7:  PAPER  7:  INK  0:  B 
RIGHT  Or  CLS  :  DIM  A (LEV):  DIM  B 
(LEV):  LET  KILL-0 
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16  PRINT  AT  0,3s" 

M 

17  FOR  N= 1  TO  20:  PRINT  AT  N,3 

INK  4 ;  " 

INK  Os"  " s  NEXT  n 

18  PRINT  AT  21,3;" 

if 

19  BRIGHT  Os  BORDER  7 

20  PRINT  AT  2, 28; "7" ; AT  3,27;" 

5  "  s  I NK  2 ; " X  "  ;  I NK  0 ; ” 8 " ; AT  4 , 28 
; "6" ; AT  0, 26; "Move. “ ; AT  1,26;" — 
— " ; AT  6 , 27 ; " Key " ; AT  7 , 27 ; " - " 

21  PRINT  AT  8, 27; "You=" ;  INK  6 
;  "a";  AT  9,26;  INK  0;  "Zomb*"  ;•  INK 

2;  "b " ; AT  10,26;  INK  0; "Swamp"; 
INK  3; "c " 

22  PRINT  AT  12,27; "GOOD"; AT  13 
,27; "LUCK"; AT  14,27; " 

23  PRINT  AT  16, 28; ; LEV-KILL; 
AT  1 7 , 28 ; " TO " ; AT  18, 27 ; "K I LL ! " 

24  FOR  N=1  TO  LEV 

25  LET  A (N) “I NT  (RND*20> :  LET 
B (N) =INT  <RND#20) :  IF  ATTR  ( A  <N> 
+ 1 . B ( N ) +4 ) < > l 24  THEN  GO  TO  25 

26  PRINT  AT  A <N> +1 , B <N) +4;  INK 
2;  PAPER  4; "b "  :  NEXT  n 

27  FOR  N=1  TO  LEV#5 

28  LET  A”  I  NT  <RND*20> :  LET  B-= 1 
NT  (RND*20) s  IF  ATTR  (A+l,B+4)<> 
124  THEN  GO  TO  28 

29  PRINT  AT  A+l.B+4:  INK  3;  PA 
PER  4 ; "c " :  NEXT  n 

30  LET  X=I NT  <RND*20) s  LET  Y=I 
NT  ( RND*20 )  :  IF  ATTR  <X+1 , Y+4 >  < > 
124  THEN  GO  TO  30 


31  PRINT  AT  X+l,Y+4*  INK  6;  PA 
PER  4;  ••a":  FOR  N=0  TO  50  STEP  5: 

BEEP  . 02, N:  NEXT  N 

32  PRINT  AT  X+l,Y+4;  INK  6;  PA 
PER  4; "a" 

33  FOR  N= 1  TO  LEV:  IF  AIN) =100 


AND  N—LEV  THEN  GO  TO  49 

34  IF  A (N) =100  THEN  NEXT  N 

35  IF  KILL-LEV  THEN  GO  TO  91 

36  IF  N >LE V  THEN  LET  N=LEV 

37  PRINT  AT  A (N ) +1 , B f N> +4;  BRI 
GHT  1;  INK  4;"  “ 

38  IF  A  ( N ) < X  THEN  LET  A(N)=A< 
N)  +1 

39  IF  B ( N ) > Y  THEN  LET  B(N)=B< 


N)  —  1 


40  IF  A ( N >  > X  THEN 
N)  —  1 

41  IF  B ( N ) < Y  THEN 
N)  +  l 


LET  AIN) =A ( 
LET  B (N) =B ( 


42  LET  A=ATTR  ( A <N) +1 , B (N) +4) 

43  IF  A- 124  THEN  PRINT  AT  A (N 
) +1 , B (N) +4;  INK  2;  PAPER  4;  BRIG 
HT  1 ; "b " :  BEEP  .01, Ns  NEXT  N 

44  IF  A=99  THEN  LET  SC=SC+10: 
FOR  1=7  TO  0  STEP  -1:  PRINT  AT 

A  IN) +1 , B IN) +4;  BRIGHT  1;  PAPER  4 
;  INK  I ;  "c " :  BEEP  .02,1*7:  NEXT 
I:  PRINT  AT  A  IN) +1 ,  B  IN) +4;  INK  3 
;  PAPER  4;  BRIGHT  ls,,c“:  LET  KIL 
L-KILL+1:  PRINT  AT  1 6 , 28 ; “ " ; LEV- 
K I LL ;  "  '■ :  LET  A  <  N )  =  1 00 :  1 F  N<  =L 

EV  THEN  NEXT  N 

45  IF  N >=LE V  THEN  LET  N=LEV 
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46  IF  N<=LEV  AND  A(N)=X  AND  B( 
N  )  Y  THEN  FOR  I®0  TO  7:  PRINT  A 
T  A (N) +1 , B (N) +4;  BRIGHT  Is  PAPER 

4;  INK  I;  FLASH  1;  "a":  BEEP  .  1, 
1*7:  NEXT  I:  60  TO  87 

47  IF  KILL  “LEV  THEN  (50  TO  91 

48  IF  N<LEV  THEN  NEXT  N 

49  IF  LEV“K ILL  THEN  PAUSE  30: 

GO  TO  91 

50  FOR  6=1  TO  2:  PRINT  AT  X  +  l, 
Y+4;  INK  4;  BRIGHT  1;"  " 

51  LET  X  =  X  + ( INKEY*="6" )-( INKEY 
$=  " 7 "  )  :  LET  Y=Y+  (  INKEY$=  " S " ) - ( IN 
KEY$="5"  ) 

52  LET  A=ATTR  (X+l, Y+4) 

53  IF  A* 124  THEN  PRINT  AT  X+l 
, Y+4;  INK  6;  PAPER  4;  BRIGHT  1 ; " 
a":  BEEP  .04.20:  NEXT  (5:  (50  TO  3 

54  IF  A=98  THEN  GO  TO  103 

55  LET  LEV =5 :  CLS  :  PRINT  AT  3. 
,11;  ••ZOMBIES"  ;  AT  2,11;  "=======" 

56  PRINT  AT  3,1;  "YOU  ARE  SLOWL. 
Y  SINKING  INTO  THE" 

57  FOR  1=0  TO  7:  PRINT  AT  1+6, 

S;  PAPER  7-1;  INK  I;"  8  W  AMP 

!  NEXT  I 

58  PRINT  AT  16, 3; "HOWEVER  YOU 
HAVE  MANAGED":  PRINT  AT  19.5; "TO 

SCORE  " ; SC; "  POINTS!" 

59  PRINT  £  1  ;  "  <  c )  Copyriqht  DAV 
ID  PERRY  1983" 

60  LET  1=0 

61  PRINT  AT  21,9;  INK  I; "PRESS 

A  KEY  1  " 
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62  LET  1=1+1:  IF  I >7  THEN  LET 
1*1 

63  IF  INKEY$=“ "  THEN  GO  TO  61 

64  LET  LEV=5:  PAUSE  0 

65  GO  TO  106 

66  CLS  :  PRINT  AT  0,10; "ZOMBIE 
S"; AT  1,10; "=-=====“ 

67  PRINT  :  PRINT  "  YOU  HAVE  ,J 
UST  LANDED  ON  AN" 

68  PRINT  "  ISLAND  POPULATED 
WITH?" 

69  RESTORE  70:  FOR  N=0  TO  31: 
READ  A:  POKE  USR  "A"+N. A:  NEXT  N 

70  DATA  0,24,126,24,24,24,24,0 
, 129, 195, 165, 165, 102,24,36,24, 12 
9, 126,66,90,90,66, 126, 129, 153,90 
, 60 , 23 1 , 23 1 , 60 , 90 , 1 53 

71  FOR  N=7  TO  13:  PRINT  AT  N, 1 
0 ;  I NK  IM— 7 ;  "  I OMB I ES  "  :  BEEP  .  5 ,  N  : 

NEXT  N 

72  PRINT  AT  14, 10; " ZOMBIES" :  B 
EEP  .5,35 

73  PRINT  AT  17,0;  "(c:)  COPYRIGH 
T  DAVID  PERRY  1983!" 

74  PAUSE  10:  FOR  N=0  TO  27:  PR 
INT  AT  19.,  N;  INK  2;  "  b  " ;  INK  5; 
"a":  BEEP  .02,N:  NEXT  N 

75  PRINT  AT  19,N;"  "s  PAUSE 
10:  BEEP  .5,40:  PAUSE  5:  FOR  N= 

27  TO  0  STEP  -1:  PRINT  AT  19.,  N; 
INK  2; "b  INK  5; "a  " :  BEEP  .02 
, N:  NEXT  N 

76  CLS 

77  PRINT  AT  0, 10; " ZOMBIES !"; AT 
1, 10s " «*»*=**” 
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78  PRINT  AT  2,1; "The  zombies  a 
re  f  1  esh— eaters;  however  they 
are  blind,  that  is  your  only 

advantage.  They  come  in  packes 

30  you  can  use  yoursel-f  as  b 

ait  to  lure  them  into  the  area 

s  of  swamp.  Be  careful, 

if  you  fall  in  a  pit  then  yo 
u  will  die  too.  You  only  have 

one  life  so-" 

7?  PRINT  AT  12,4;"  BE  C  A  R 
E  F  LJ  L  !  " 

80  PRINT  AT  14,1;"  The  movemen 
t  keys  are  5-8. " 

81  PRINT  AT  16,2*"  YQU=";  INK 
5; "a";  INK  Os"  ZOMBIE"";  INK  2;" 
b";  INK  0;"  5WAMP=";  INK  3;"c"; 
INK  Oj"." 

82  LET  I =0 :  PR I NT  £ 1 ; " <  c )  Cop y 
right  DAVID  PERRY  1983" 

83  PRINT  AT  19,8;  INK  I;  PAPER 
2;  BRIGHT  1;"  PRESS  A  KEY!  " 

84  LET  1=1+1 s  BEEP  .01,1*7:  IF 
I >7  THEN  LET  1=0 

85  IF  INKEY*»"M  THEN  GO  TO  83 

86  CLS  :  RETURN 

87  CLS:'  :  PRINT  AT  1,11;  "ZOMBIE 
S  "  ;  AT  2,11 ;  "  ———————  •• 

88  FOR  N=0  TO  7:  PRINT  AT  4+N, 
0;  PAPER  N;  INK  7-N; "  T  H  E  Y  C 

AUGHT  Y  0  U  !  NEXT  N 

89  GO  TO  58 

90  S3T0P 

91  CLS  :  PRINT  AT  1,11; "ZOMBIE 
S " : AT  2,11s" ======= " 
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92  FOR  N=7  TO  0  STEP  -Is  PRINT 
AT  4+N, 0;  PAPER  N;  INK  7-N; "  C 

QNGRATULAT  I  DNS":  N 
EXT  N 

93  LET  SOSO  (LEV *20) 

94  PRINT  AT  13,1; "YOU  HAVE  SCO 
RED  " ; SC; "  SO  FAR!" 

95  LET  LEV“LEV+5:  FOR  N«1  TO  1 

0  STEP  2:  BEEP  . 02, N:  NEXT  Ns  PR 
I  NT  AT  15,4;  "NOW  TRY  THE  NEXT  LE 
VEL" :  PRINT  :  PRINT  "  WITH 

" ; LEV ; "  ZOMBIES ! " 

96  PRINT  AT  19, 7;" BONUS  POINTS 
=  " ? (LEV-5) *20; " " 

97  PRINT  £1 ; " (C)  Copyright  DAV 
ID  PERRY  1983" 

90  LET  1*0 


99  PRINT  AT  21,8;  INK  I; "PRESS 
ANY  KEY ! " 

100  LET  1=1+1 s  BEEP  .02,1*5:  IF 
I >7  THEN  LET  1*0 

101  IF  I NKEY$=" "  THEN  GO  TO  99 

102  GO  TO  15 

103  CLS  :  PRINT  AT  1,11; "ZOMBIE 

S  "  ;  AT  2,11;"  " 

104  FOR  N=7  TO  0  STEF'  -Is  PRINT 
AT  6+N , 0 ;  PAPER  N;  INK  7-Ns "  YO 

U  HAVE  JUST  COMM I TED  SUICIDE 
NEXT  N 

105  GO  TO  58 

106  BORDER  Os  PAPER  Os  INK  7s  B 
RIGHT  Is  CLS 

107  IF  SCON  (10)  THEN  60  TO  12 
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1 OB  LET  NUM= 1 1 :  IF  SO=N(NUM>  T 
HEN  INPUT  "ENTER  8  INITALS!  " :  F> 
$:  IF  LEN  P*>8  THEN  GO  TO  108 

109  PRINT  AT  7,0;  FLASH  1;  BRIC-3 
HT  O;  INK  7:  PAPER  2: "THIS  WILL 
ONLY  TAKE  A  FEW  SECS'" 

110  IF  SC >=N ( NUM )  THEN  LET  N (N 
UM ) “SC :  LET  N$ ( NUM ) =P* 

111  FOR  A=  1  TO  (NlJM-1):  LET  B*= 
N$  (A)  :  LET  C*s>N*  ( A+ 1  )  j  LET  B=N  <  A 
):  LET  C=N  ( A+  1  )  :  IF  B< C  THEN  L.E 
T  N ( A ) ~C :  LET  N ( A+ 1 ) =B :  LET  N* ( A 
) ~C*:  LET  N*(A+1)=B* 

112  NEXT  As  FOR  N“1  TO  NUM--1  :  I 
F  N ( N ) <  N  <  N+ 1 )  THEN  GO  TO  111 

113  NEXT  N 

1 1 4  CLS 

115  PRINT  AT  2.4;"H  A  L  L  OF 

FAME  1  " 

116  PRINT  AT  3,  4;  11  ============= 


117  FOR  N= 1  TO  NUM- Is  PRINT  AT 
N+5 , 7  ;  I NK  6  ;  "  <  "  ;  INK  2;Nj  I NK: 

6; " ) " ; AT  N+5. 12:  INK  7;N<N):  PRI 
NT  AT  N+5.  17;  INK  5:  N't  <N>  :  NEXT 
N 

118  PLOT  0,0s  DRAW  255,0:  DRAW 
0 ,  1 75  s  DRAW  -255 , O s  DRAW  0,-1 75 : 

PRINT  AT  17, S;  PAPER  2;  INK  7:" 
PRESS  ANY  KEY!  LET  1=0 

1 1 9  LET  I = I + 1 s  IF  I >7  THEN  LET 
1=0 

120  PRINT  AT  2,4;  INK  I;"H  A  L 
L  OF  PAM  E  !  " 

121  BEEP  .01,1*7:  PAUSE  2:  IF  I 
NKEY$>= " "  THEN  GO  TO  119 
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122  PAPER  7:  INK  0:  BORDER  7:  B 
RIGHT  Os  CLS  :  GO  TO  14 

123  PRINT  AT  10, 4; "SORRY  SCORE 
TO  LOW ! ! 1 " 

124  PRINT  AT  13,7;"  PRESS  A  KEY 

i  ■> 

125  PAUSE  O:  GO  TO  114 
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56 


ADVENTURES 
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TROLL  and  THE  CITY 


These  two  Adventure  games,  written  by  Nei  L 
Pellinacci,  are  played  in  similar  ways, 
although  the  scenario  and  solution  are  - 
of  course  -  different.  It  is  worth  trying 
to  convince  a  friend  to  type  the  programs 
in  for  you,  so  you  don't  find  out  the 
solutions  even  before  you  run  them. 

THE  CITY  includes  instructions  in  the 
program  which  precedes  the  main  game.  To 
complete  the  Adventure,  you  must  say  the 
password  so  your  contact  can  hear  it.  You 
don't  know  who  the  contact  is,  although 
there  are  not  many  possibilities. 

In  the  second  Adventure,  TROLL,  you  must 
try  and  escape  from  the  Troll's  lair.  He's 
very  mean  and  will  let  you  escape  only 
over  his  dead  body.  Therefore,  you  have  to 
kill  hi m  to  win . 

In  both  programs,  as  in  most  Adventure 
games,  you  enter  your  commands  as  two-word 
phrases  (verbs  and  nouns)  such  as  GO  WEST 
or  DROP  AXE.  You'll  soon  discover  which 
words  the  program  will  recognize. 

Note  that  each  program  has  a  loader 
program  (which  for  THE  CITY  doubles  as  an 
instruction  manual).  This  sets  up  the 
screen  and  keyboard.  48K  owners  can  leave 
out  the  CLEAR  32767  instruction,  but  the 
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CLS  must  be  Left  in.  If  you  use  the  in¬ 
built  SAVE  instructions,  note  that  you'll 
have  to  set  the  colors  and  POKES 
beforehand . 


The  loaders  have  been  used  to  maximise 
memory  space  for  the  main  program.  To  type 
the  games  in,  enter  and  SAVE  the  loader 
program,  then  type  in  and  SAVE  the  main 
game  directLy  after  it.  When  saving  the 
programs,  or  re-running  them,  remember 
that  the  start  Line  is  1  for  the  loaders 
and  900  for  the  main  programs. 


Here  is  the  loader  for  TROLL: 


1©  REM  fidvantura  ©  Ha  i  L 
Pa l  t i n  S  C C i  19 © 3 

20  BORDER  G :  PfiPER  G:  INK  7:  B 
RIGHT  1:  C!_5 

30  CLEAR  3S7&? 

40  POKE  23603,  100:  POKE  2365iJ, 
S.  POKE  23624,71 
50  LORD  ”” 


And  this  is  the  main  TROLL  program: 


12  PRINT  •'  " 
GATE , " 

13  IF  O  (9) 
NO  WEAPON  AND 
UICKLY . " 

14  LET  3=P; 

15  PRINT 
p,  WHICH 

.  •*:  LET  5=P; 

33  PRINT  • " 
RK  CHvE . 

THE  NORTH, 

HE  ERST. ” 

34  LET  N=P: 
RETURN 


I  RH  RT  THE  TROLL ' S 

THEN  PRINT  “ I  HflUE 
I  MUST  LEAVE  0 

RETURN 

I  PM  IN  P  SMALL  SHU 
SELLS  uHLV  DOC-FOOD 
RET  UR H 


I  PM  IN 


SHALL ,  DR 


THERE  IS  P  GATE  T*_ 
RND  P  CLEARING  TO  T 

LET  S=P:  LET  E=P. 
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36  PRINT  '”1  RH  IN  R  CLEARING, 
THE  CAVE  IS  TO  THE  NEST,":  LET 

E=P:  LET  U=P:  RETURN 

39  PRINT  '"I  AH  ON  R  PRTH ,  UHI 
CH  CONTINUES  TO  THE  SOUTH -  I  CRN 
SEE  H  SHOP  TO  THE  NORTH  y  RND  R 
FOUNTAIN  TO  THE  ERST," 

4-0  LET  N=P:  LET  S  =P :  LET  E  =P  : 
LET  U  =P :  RETURN 

4-2  PRINT  '"THERE  IS  R  FOUNTAIN 
HERE,  R  ROADLEADS  OFF  TO  THE  SO 
UTH . " :  LET  S=P:  LET  w=P:  RETURN 
54-  PRINT  "'I  RH  5TRM€'IMG  IN  R 
NARROW ,  ROCKY PASSAGE  WHICH  GENTL 
Y  RISES  TO  THE  NORTH ,  I  CRN  5E 

E  DRY LIGHT  fiOOvt .  " :  LET  N  =P :  L 

ET  U  —P :  RETURN 

60  PRINT  '"I  RH  STANDING  ON  R 
GRAUEL  PRTH,  R  ROAD  LIES  TO  THE 
ERST.  ':  LET  N=P:  LET  E=P 

61  IF  O  l'4U  =LOC  THEN  PRINT  "THE 
RE  IS  R  MOUND  RT  HV  FEET." 

62  RETURN 

63  PRINT  ' "R  RORD  RUNS  NORTH -3 

GUTH.  R  FOUNTAIN  LIES  TO  T.H 

E  NORTH,";  LET  N=P:  LET  3=P:  RET 
URN 

69  PRINT  "I  CRN  SEE  R  SMALL  C 
LEARING  WITH  R  LARGE  TREE.":  LET 
S=P:  LET  E  =P ;  RETURN 

72  PRINT  '"I  AM  IN  R  THICK  FOR 

EST.  THERE  RRE  CLEARINGS  TO  TH 

E  ERST  RND  SOUTH," 

73  LET  U=P:  LET  E=P;  LET  S=P: 
RETURN 

75  PRINT  "I  RH  STANDING  IN  R 
CL ERRING .  THERE  IS  R  DEEP  SHR 

FT  IN  THE  GROUND,".  LET  U=P: 

LET  D  =P ;  RETURN 

34-  PRINT  "THE  RORD  ENDS  HERE. 
THE  RIUER  ISTO  THE  SOUTH,  WITH 
MOUNTAINS  3EYOND , " :  LET  N=P: 

RETURN 

37  PRINT  ' "R  LRRGE  UOLF  LERPT 
OUT  OF  THE  TREES,  RND  KILLED  H 
E,":  GO  TO  9©0O 

90  PRINT  "'I  RH  STANDING  IN  R 
CLEARING.  I  CRN  HERR  RUSTLING  N 
OISES  TO  THE  WEST ,  ;  LET  N=P;  LE 

T  £=P;  LET  W=P:  RETURN 
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93  PRINT  ' "THE  FOREST  ENDS  HER 
E,  ft  RIUER  LIES  TO  THE  SOUTH. 

tt  MAY  BE  POSSIBLE  TO  CROSS.” 

""LET  N=P:  LET  U«P;  RETURN 
114-  PRINT  -~r  RH  STANDING  ON  TH 
E  RIUER  BANK,!  CRN  SEE  AN  OPEN  G 
PTE  GUARDED  BY  ft  DOG ,  AND  ft  MRN 
SION  BEYOND." 

115  LET  S=DOG:  IP  NOT  S  THEN  PR 

I NT  "THE  DOG  WILL  BE  ft  PROBLEM, « 

»  * 

’ll6  RETURN 

117  PRINT  '  "  I  AM  NEftR  ft  MANSION 
,  ft  DOOR  IS  AHEAD  OP  HE.";  LET 
N —P :  RETURN 

138  PRINT  "I  AH  NOW  INSIDE  THE 
MANSION.  I  CERTAINLY  WOULDN'T  L 
IUE  HERE.  ITS  ALL  DUSTY  AND  5 
MELLY . " ;  LET  U=P:  RETURN 
800  PRINT  '"I  CAN  SEE...1’:  LET 
PL=0;  FOR  Z=P  TO  9;  IF  0(2) =LOC 
THEN  GO  TO  830;  REM  THEN  PRINT  rr 
ft  (Z1  ;  LET  PL  =1 

810  NEXT  Z:  IF  NOT  PL  THEN  PR IN 
T  "NOTHING" 

320  RETURN 

S3©  IF  Z  =4-  AND  LOG  =20  THEN  GO  T 
O  310 

34.0  PRINT  "A  ”;0*  (Z)  ;  LET  FL  =  1: 
GO  TO  310 

350  IP  R$ (PI ="  "  THEN  LET  fi$=fi$ 

(2  TO  ) :  GO  TO  350 
330  IP  fl$(LEN  Ail ='  "  THEN  LET 

R$=A$(  TO  LEN  :  GO  TO  360 

370  LET  B$=” " :  FOR  Z=P  TO  LEN  ft 
$;  IP  R*(Z)="  "  THEN  LET  B$=A$(Z 

+P  TO  ) :  LET  fti=ft£ {  TO  Z-Pl :  RET 
URN 

830  NEXT  Z:  RETURN 
900  GO  SUB  9500;  CLS 
393  LET  N=G;  LET  5=0;  LET  E=0 ; 
LET  W=0;  LET  U=0:  LET  D=0 
999  GO  SUB  LOC*3.  PRINT  ' "EX ITS 
"i  ("NORTH  "  AND  N1 ; ("SOUTH  ”  ft 
ND  SJ  ;  ("EAST  "  ftND  El;  ("WEST"  AN 
D  WJ :  GO  SUB  880 

1000  INPUT  INK  5; "WHAT  SHALL  I  D 
07"'  LINE  ft$.  IF  Ai=""  THEN  GO  T 
O  C 

1005  GO  SUB  350:  PRINT  INK  6;  AS; 
"  ";B$:  PRINT 
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1007  IF  LOG- =4-  fiND  RMD  >  .  S3  THEN  P 
PINT  "THE  TROLL  LERPT  OUT  AND  SM 
R3HED  MY  SKULL »  I  RH  DEAD.":  GO 
TO  9000 

1008  IF  LOG =30  RMD  NOT  DOG  RND  R 
HD > . 9  THEN  PRINT  "THE  DOG  RTTRCK 
ED  ME  RND  KILLED  HE.":  GO  TO  90 
00 

1010  IF  R$="N”  RND  N  THEN  LET  LO 

C =LOC — F :  GO  TO  C-P-P 

1020  IF  R$="5”  RND  5  THEN  LET  LO 


C =LOC — F 
1020  IF 
C=LOC+F 

1030  IF  R$="E"  RND  E  THEN  LET  LO 
C=LOC+P :  GO  TO  C-P-P 

104-0  IF  R$="U"  RND  U  THEN  LET  LO 
G=LOC— P:  GO  TO  C-P-P 
104-5  IF  R$  =  "U"  OR  R$="E”  OR  R$  =  " 
N"  OR  R$='S"  THEN  PRINT  " I  CAN'T 
GO  IN  THRT  DIRECTION.”:  GO  TO  C 
1050  IF  R$="I”  THEN  GO  SUB  2000: 
GO  TO  C 

10S0  IF  R  $  = "  LOOK  ”  THEN  C-LS  :  GO 
TO  C-P-P 

1070  IF  THEN  GO  TO  3000 

1080  IF  R$=”U”  THEN  GO  TO  3100 
1090  IF  R$="G ET"  OR  R$=“TflKE"  TH 
EN  GO  TO  2100 

1100  IF  ft-*  =  "  DROP"  OR  R$  =  "PUT”  TH 
EN  GO  TO  2200 

1110  IF  R*="KILL"  THEN  60  TO  230 


R$="3”  RND  5 
GO  TO  C-P-P 
R$="E”  RND  E 


1120  IF  fi$  =  "OPEN" 
0 

1130  IF  R  $  =  " CROSS 


THEN  GO  TO  25 


114-0  IF  =  " UNLOCK"  THEN  GO  TO  2 
S00 

1150  IF  R$=”FEED”  THEN  GO  TO  270 


1180  IF  R $  =  ”BUY ”  THEN  GO  TO  2800 
1170  IF  fl$="SRUE"  THEN  SRVE  "RD" 
LINE  993:  PRINT  "VERIFY . . . ” :  VE 
RIFY  ”RD”:  GO  TO  C 

1180  IF  RS="OUJT"  THEN  GO  TO  897 

© 


1190  IF  R $  =  "HELP ”  THEN  PRINT  “TH 
E  TROLL  WON'T  LET  YOU  60  EVEN  IF 
YOU  RSK  NICELY...";  GO  TO  C 
1200  IF  R$='DIG"  THEN  GO  TO  2900 
1300  PRINT  ”1  DON’T  UNDERSTAND." 
:  GO  TO  C 
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£000  PRINT  '"I  HfiUE  THE  FOLLOUIN 
G...“:  LET  F  L=0:  FOR  Z=1  TO  9:  I 
F  O  1Z)  =D  THEN  PRINT  "A  ";0$(Z>: 
LET  FL=P 

2010  NEXT  Z:  IF  NOT  FL  THEN  PR IN 
T  ''NOTHING,'' 

2020  RETURN 

2100  IF  B$  =  "  "  THEN  INPUT  INK  5;  * 

R $)  ;  "  UHRT  '??"  •  LINE  S$;  GO  TO  2 
100 

2105  IF  OB  =4-  THEN  PRINT  "I  CAN'T 
CARRY  ANY  MORE . " ;  GO  TO  C 
2110  FOR  Z=P  TO  9:  IF  Q^^Z) (  TO 

LEN  =B$  AND  O (2; =LOC  THEN  GO 

TO  2130 

2120  NEXT  Z.  PRINT  "I  CAN'T  DO  T 

HAT  .  *'  :  GO  TO  C 

2130  IF  B  $  =  "DOG  BONE"  AND  LOC=b 
THEN  PRINT  "THAT  WOULD  BE  STEALI 
NG ! ” :  GO  TO  C  _ 

2140  PRINT  "OK--";  LET  0VZ)=0;  L 
ET  OB=OB+P;  GO  TO  C 

2200  IF  B$  =  "  *'  THEN  INPUT  INK  5;  " 

WHAT  SHALL  I  ”,  {R*J  ;  ”  LINE 

B$:  GO  TO  2200 

2210  FOR  Z-P  TO  3;  IF  Q$ (Z)  (  TO 

LEN  B$.1  =B$  AND  O  iZi  =0  THEN  PRINT 
''OK.-”;  LET  O  (2.1  =LDC:  LET  OB  =05 
-P;  GO  TO  C 

2220  NEXT  Z;  PRINT  " I  HRUE  NO 
" ! " :  GO  TO  C 

2300  IF  B$='"'  THEN  INPUT  INK  5;” 

KILL  UHAT?'"  LINE  B$:  GO  TO  2300 
2310  IF  B$  <  >  "TROLL "  THEN  PRINT  ** 
I ' M  NOT  THAT  SORT  OF  PERSON ! " ;  & 

O  TO  C 

2315  IF  LOC  <  :>4-  THEN  PRINT  "I  CRN 
T  SEE  R  TROLL?":  GO  TO  C 
2320  IF  O  f 9>  THEN  PRINT  "YOU  HRU 
E  NOTHING  TO  KILL  THE  TROLL  W 

ITH . " :  GO  TO  C 

2330  PRINT  ' - "WELL  DONE-  YOU  HRU 

E  KILLED  THE  TROLL  AMD  EARNT  YO 
UR  FREEDOM - " :  GO  TO  9O00 
24-00  IF  B$  =  '"'  THEN  INPUT  INK  5;  “ 

UHRT  SHALL  I  OPEN?"’  LINE  B$ ;  GO 
TO  24-00 

24-10  IF  B$0"DOOR"  THEN  PRINT  ”T 
HAT  I  CANNOT  DO  - " :  60  TO  C 

£4-20  IF  LOC  0  39  THEN  PRINT  "UHRT 
DOOR?":  60  TO  C 
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24 30  IF  NOT  DO  THEN  PRINT  "IT'S 
LOCKED . " :  GO  TO  C 

24-4-0  PRINT  "OK..”:  LET  LOC=LOC-*-P 
:  GO  TO  C-P-P 

£500  IF  B$  ='"'  THEN  INPUT  INK  5;  ” 
UHRT  DO  YOU  UftNT  TO  CROSS?'"  LIN 
E  E$:  GO  TO  2503 

2505  IF  S$<T'RIUER"  THEN  PRINT  ” 
I'M  NOT  THfiT  CLEVER ,  HATE!":  GO 
TO  C 

2507  IF  LOO  -l  :>  31  PHD  L0C-O32  THEN 
PRINT  "SHOU  HE  R  RIVER,  RND  I'L 
L  TRY . " :  GO  TO  C 

2510  IF  0(2)  THEM  PRINT  "I'M  GO I 
NG  TO  NEED  SOMETHING  TO  HELP  HE 
,  **  :  GO  TO  C 

2520  PRINT  "OK.,”:  LET  LOG=LOC+C 
LOG =31) - (LOO =32) ;  GO  TO  C-P-P 
2500  IF  B$  =  ''"  THEM  INPUT  INK  5; “ 
PLEASE  CONTINUE  YOU R  COMMAND . " ' 
LINE  B$:  GO  TO  2533 

2605  IF  B$0"DOOR"  THEM  PRINT  ”T 
HPT  COULD  TAKE  HE  ft  UHILE , " :  GO 

-j-Q  0 

2610  IF  LOCO 39  THEN  PRINT  "I  OR 
N'T  SEE  ft  DOOR?":  GO  TO  C 
2520  IF  DO  THEN  PRINT  "YOU  FOOL, 
XT'S  ALREADY  UNLOCKED/ " :  GO  TO 

r: 

2625  IF  0(4)  THEN  PRINT  "YOU  HRU 
E  NO  KEY  GO  TO  C 

2630  PRINT  "OK,.":  LET  DO=P:  GO 
TO  C 

2700  IF  B$0"DOG,!  THEN  PRINT  "I 
DON'T  THINK  IT'S  WORTH  IT.":  GO 

TO  C 

2710  IF  LOG  0  32  THEM  PRINT  "UHRT 
DOG?":  GO  TO  C 

272©  IF  O(P)  THEM  PRINT  "UHRT  UX 
TH,  YOUR  FINGERS?”.  GO  TO  C 
2730  PRINT  ' "THE  DOG  HR 5  FALLEN 
ASLEEP.":  LET  OOG=P:  LET  S=P;  LE 
T  0(P)=L0C-:  LET  OB=OB-P:  GO  TO  G 
2600  IF  O  CF)  THEN  PRINT  "YOU  HRU 
E  NO  MONEY . " :  GO  TO  C 
2810  IF  B$  =  '"'  THEN  INPUT  INK  S;  “ 
ANYTHING  IN  PARTICULAR?'"  LINE  B 
$;  GO  TO  2010 

232©  IF  B$="NO”  THEM  PRINT  "UfiTC 
H  IT,  MOTE!  ILL  LOSE  MY  PRTI 

ENCE ! " :  GO  TO  C 
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2330  IF  B  $0"DOC  SOME "  THEN  PRIN 
T  "WHY  BOTHER  XF  XT ' S  FREE?" :  GO 
TO  C 

284-0  IF  LOC-oS  THEN  PRINT  "THERE 
'5  NO4 DOG  BONE  HERE,":  GO  TO  C 
£84-5  IF  OB  =4-  THEN  PRINT  "I  CAN'T 
CARRY  ANY  MORE , ” :  GO  TO  C 
£850  PRINT  " OK , , ” :  LET  0(PJ=0:  L 
ET  OB=OB+P:  GO  TO  C 

2900  IF  L0CO28  THEN  PRINT  "I  DR 
N ' T  DO  THAT  YET , " ;  GO  TO  C 
£910  IF  0(4) <)LOC  THEN  PRINT  "TH 
ERE 'S  NOTHING  THERE,":  GO  TO  C 
£920  PRINT  "X  HRUE  FOUND  A  KEY." 

:  GO  TO  C 

8000  IF  L0CO25  THEN  PRINT  "DOWN 
WHERE?" :  GO  TO  C 

3010  IF  0(5}  THEN  PRINT  "I'M  NOT 
JUMPING,  I'LL  BREAK  MY  NECK!”: 
GO  TO  C 

3020  PRINT  "OK,,":  LET  LOC-=LOC-F 
:  GO  TO  C-P-P 

3130  IFwLOC <  > IS  THEN  PRINT  "I  CR 
N'T  DO  THAT  YET  *  ”  :  GO  TO  C 
3110  IF  0(5}  THEN  PRINT  "HOW  DID 
YOU  GET  ME  DOWN  IN  THE  FIRST  P 
LACE?”:  GO  TO  C 

3120  PRINT  "OK,,":  LET  LOC=LOC+F 
:  GO  TO  C-P-P 

8973  CLS  :  INPUT  "ARE  YOU  SURE  - 
-  YVN;  LINE  R$ 

§980  IF  A  $  =  "V "  OR  A$="YES”  THEN 
GO  TO  9000 
8990  GO  TO  C 

9000  INPUT  "DO  YOU  WANT  ANOTHER 
GO?  (Y/N.1  LINE  A$ 

9010  IF  A$=”Y”  OR  ft$=”YE5"  THEN 
RUN  930 

9020  IF  A$  =  'N"  OR  A$="NO"  THEN  5 
TOP 

9030  GO  TO  9003 

9500  LET  O  =PI —PI :  LET  P=P I/PI 
9510  LET  F  =UAL  "7":  LET  LOC=UAL 
‘'24.'*:  LET  OB=D 

9520  LET  D0=0.  LET  D0G=0:  LET 
UAL  ”1000":  DIM  O  $  i  9  ,  S  }  :  DIM  0(9 

) 

9530  FOR  Z=P  TO  INT  iPUPI)  :  RER 
D  0$(Z),Y$:  LET  D(Z}=UAL  Y$ 

954-0  NEXT  Z 
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955 0  DRTR  "DOG 
,  "11"  ,  "RING"  ,  "1 
PE" , "23" , "ROCK" 
0" , "BOOK" , "30" , 
9500  RETURN 


BONE  '  , "S"  , "PLANK ” 
4-"  ,  "KEY"  ,  "20"  y  "RO 
, "23" , "UALLET" y "3 
"GUN"  ,  "4-0" 


This  next  program  is  the  Loader  for  THE 
CITY: 

10  REN  The-  Ci  ty 

20  rem  fln  Advent  vfe  G a m  s. 

30  REH  3y  Ne  i  L  l  Linacci  1033 
4- 0  REM  I S r,  5p ectru m 

50  REM 
60  REM 

70  BORDER  0:  PAPER  0;  INK  7:  B 
RIGHT  1 

30  CL  ERR  32767:  CL 5 
90  POKE  23600 y 100  :  POKE  2365S  y 
3:  POKE  £3624-  ,71 
95  GO  SUB  200 
100  LORD  "" 

200  DIM  R$  032.*  :  PAPER  6:  INK  0. 
LET  R$  =  "  STOP  THE  TRPE 

LET  L  =9 :  GO  SUB  900 
210  PAUSE  100;  PAPER  0;  CLS 
220  LET  R$  =  "  THE  CIT 

Y";  LET  L  =3:  INK  6:  GO  SUB  900 
230  LET  R$="«N  RDVEHTURE  F OR  TH 
E  ZX  SPECTRUM”.  LET  L=3.  GO  SUB 
900 

24-0  LET  R* »** WRITTEN  BY  NEIL  PEL 
LINfiCCI  1963";  INK  5:  LET  L=6: 
GO  SUB  900 

250  LET  R$  =  "  PRESS  ANY  KEY  TO 

CONTINUE":  INK  7:  LET  L=1B;  GO 
SUB  900 

260  LET  L  =1 :  PAUSE  I :  PAUSE  0 : 
CLS 

265  FOR  Z  =-20  TO  30  STEP  5:  BEE 
P  -01yZ:  BEEP  .  01,Z,'10:  BEEP  .01 
yZ-10:  BEEP  .01,2+10:  NEXT  Z 
£70  RESTORE  _ 

230  RERD  R$.  IF  R$VI1="*"  THEN 
RETURN 

290  IF  R$V !>="+•"  THEN  PRINT  RT 
21,0;  INK  6;"  PRESS  ANY  KEY  TO 
CONTINUE":  PAUSE  1:  PAUSE  0;  CL 
S  :  SEEP  .1,0;  BEEF  ,1,10:  BEEP 
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.1,20:  BEEP  .3,30;  LET  L  =1 :  GO  T 
O  280 

300  GO  SUB  900:  LET  L=L+2:  GO  T 
O  280 

4-00  OPT  ft  "  IN  THIS  CDUENTURE  Oft 
ME  YOU  MUST  " 

4-10  DftTft  "RECOVER  SOME  STOLEN  M 
ONEY .  THIS” 

420  DftTft  "MONEY  IS,  HOUEUER ,  ST 
ORED  IN  THE" 

430  DftTft  "BftNK  VAULT.  THE  BANK 
15  OWNED  BY" 

440  DftTft  "THE  GftNGSTER  WHO  5TOL. 

£  THIS  ” 

4S0  DftTft  "MONEY.” 

4S0  DftTft  ”  YOU  MUST  BREAK  INTO 
THE  BftNK , ” 

470  DftTft  "AND  STEAL  THE  MONEY  B 

ftCK .  ” 

4B0  DftTft  "HOUEUER ,  THIS  WILL  NO 
T  BE  EftSY , ” 

£,s^-rys  "*2-5  '/sjW  WILL  APPEAR  T'J 
SE~ ft  THIEF” 

•500  DftTft 

510  DftTft  "  TO  COMBAT  THIS,  YOU 
HftUE  ” 

520  DftTft  "AARANSED  ft  BO MS  SCARE 
,  ftND  SO” 

530  DftTft  "THE  CITY  IS  NEARLY  EM 
PTY .  YOU  " 

540  DftTft  "MUST  STILL  BE  CAREFUL 
THAT  THE” 

550  DftTft  “POLICE  DON'T  GET  THE 
WRONG  IDEA . ” 

560  DftTft  "THEY  WILL  NOT  KNOW  RE- 
OUT  YOUR" 

570  DftTft  "SECRET  MISSION. " 

5S0  DftTft  ”  WHEN  YOU  HftUE  COLL EC 
TED  THE" 

590  DftTft  "MONEY,  YOU  MUST  FTND 
YOUR  " 

600  DftTft  "CONTACT,  HE  WILL  TftKE 
YOU  ftWftY . ” 

610  DftTft  *'+' 

520  DftTft  ”  TO  PLftY,  ENTER  YOUR 
WISHES  IN" 

630  DftTft  "PL ft IN  ENGLISH,  USING 
VERBS  ftND" 

640  DftTft  "NOUNS,  THE  EXCEPTION 
IS  N'  TO" 

650  DftTft  "GO  NORTH,  'S'  TO  GO  3 
OUTH ,  ETC . " 
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IF  YOU  WftNT  TO  STOP, 


SS-O  DfiTft  " 


YFE 


670  CF;TH  "-'STOP'  OS  ‘  QUIT ' 
UE '  WILL.  ' 

6S0  OPT A  "SHUe  THE  CURRENT 
ON  TAPE , " 


590 

DATA  "SO 

THAT 

YOU  CAM 

H  XT 

LATER.  • 

“700 

DATA  " 

710 

DATA 

•  lit  :j  .*J 

1 

/  y 

TBRT 

THE  TAPE 

720 

DATA  "4“ 

000 

PAPER  fc? . 

7 .  STOP 

Q00 

FOR  Z  =32 

TO  1 

STEP  -1: 

t  nr 

RN 

L  ,  O;  A$  iZ 

TO  .> 

:  NEXT  Z : 

.  '  SR 

GRHE 


FINIS 


S 


PR  IN 
RETL» 


Once  you  have  that  in  place,  you  can  enter 
and  save  THE  CITY  program  itself: 

9  PRINT  ’"I  AM  IN  A  TUBE  STBT 
ION.  THERE  ISfl  TRAIN  WRITING  TO 
LEnUE  .  THE  TAXI  WRITE.  OUTSIDE. 

•  :  RETURN 

12  PRINT  ''"I  fiH  STANDING  BENIN 
D  R  BUTCHER ' 5 SHOP .  I  CRN  SEE  R  5- 
UILDING  SITE  TO  THE  ERST.":  LET 
E=P.  LET  5  —P :  RETURN 

15  PRINT  ' ‘ R  LARGE  STEEL  GIRDS 
R  FELL  ON  ME. I  AH  DEAD . “ :  GO  TO 
3000 

21  PRINT  '"I  SM  OUTSIDE  THE  ER 
NK.  THE  DOOR  IS  BEFORE  ME.  THE  H 
IGH  STREET  ISTO  THE  EAST . “ :  LET 
E=P.  LET  DO 1=0:  RETURN 

24-  PRINT  '"I  AM  IN  THE  HIGH  ST 
REET ,  WHICH  IS  DESERTED ,  APART 

FROM  B  TAX I .  R  MARKET  IS  TO  THE 
SOUTH.":  LET  E=P :  LET  U=P:  LET  S 
=P :  RETURN 

27  PRINT  '"I  AM  STANDING  IN  R 
LARGE  SHOP.  I  CRN  SEE  NO  PEOPLE 
.  THERE  IS  R  CAFE  TO  THE  ERST . ” 

LET  N=P:  LET  S=P:  LET  W=P;  LET 
E=P:  RETURN 

30  PRINT  '"I  AM  STANDING  IN  A 
SMALL ,  DESERTED  CAFE.  THE 

LARGE  SHOP  ISTD  THE  WEST  .**:  LET 
U=P:  RETURN 
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36  PRINT  '  "  I  RM  INSIDE  THE  BAN 
K.  IT  IS  UE RYOUIET.  "  ;  :  IF  GU  TH 
cN  PRINT  "I  CRN  SEE  fi‘  GUfiRD  WITH 
HIS  BRCK  TO  ME."; 

3?  PRINT  :  LET  N  =  P:  LET  S=NOT 
GU;  RETURN 

39  PRINT  '"I  RH  IN  A  STREET  MB 
RKET.  R  POLICE  STRTION  IS  T 

O  THE  ERST ,  RND  R  BUILDING  SITE 
TO  THE  SOUTH." 

4-0  LET  N=P:  LET  S=P:  LET  E=P: 
RETURN 

4.2  PRINT  '"I  HRUE  ARRIUED  RT  T 
HE  POLICE  STRTION.  IT  IS  NOT 

r^p^FDTFn  *  * 

43  IF  NOT  O!?)  THEN  PRINT  "R  P 
OLICEMRN  SEES  THE  MONEY  RND  RRR 
ESTS  ME.":  GO  TO  90S© 

4-4-  PRINT  "R  POLICEMAN  TAKES  WH 
RT  I  HRUE  COLLECTED  RND  RETURN 

5  THEM  TO  WHERE  I  FOUND  THEM , " 

:  LET  N =P :  LET  W=P.  GO  TO  700 

45  PRINT  '“I  RM  IN  fi  SMALL  GLO 
OMY  TUBE  STRTION.  THERE  IS  B 

HOLE  IN  THE  WRLL  TO  THE  SOUTH." 

!  FT  <=.  —  D  •  DFTI  tPM 

48  PRINT  '"I  RM  STANDING  IN  FR 

ONT  OF  THE  URULT  DOOR..  WHICH  I 

5  LOCKED." 

49  IF  UC  THEN  PRINT  "THERE  IS 

R  HOLE  IN  IT." 

50  LET  E=P:  LET  S=UC:  RETURN 

51  PRINT  '“I  CRN  SEE  TWO  DOORS 

,  ONE  TO  THE  WEST,  ONE  TO  THE  SO 
UTH.  THE  URULT  ENTRANCE  IS  T 

O  THE  NORTH.":  LET  N=P:  LET  S=P: 

LET  U =P :  RETURN 

54  FRINT  '"I  RM  ON  fl  BUILDING 
SITE ,  WHICH  IS  SURROUNDED  BY  HI 

GH  WALLS.":  LET  N-P:  RETURN 

57  PRINT  '"I'M  NOW  STANDING  IN 
THE  FOYER  OFR  LARGE  HOTEL.  BEFD 
RE  ME  IS  THE  RECEPTION  DESK.":  L 
ET  E=P:  RETURN 

6©  PRINT  '"I  RM  IN  THE  BASEMEN 
T  OF  R  LARGE  BUILDING.":  LET  N=P 

;  LET  W=P:  RETURN 

S3  PRINT  '"I  RM  INSIDE  THE  URU 
LT.  TO  REACH  THE  HONEY..  I  HRUE  T 

O  ENTER  THE  KEYPANEL  CODE.  THER 

E  RRE  9  BUTTONS  IN  FRONT  OF 
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HE.  2  MUST  PRESS  THE  RIGHT  ONE 
64-  LET  N=P:  RETURN 

66  PRINT  ' “ft  UftLL  HRS  RPPEflREO 
BEHIND  ME.  I  fiM  TRfiPPED . “ :  GO 
TO  9O00 

7S  PRINT  '"I  PH  INSIDE  THE  MR I 
N  UflULT  ROOM . “ :  LET  M  =  P:  RETURN 
600  IF  R${P:5=”  “  THEN  LET  fi$=fi$ 

(2  TO  .1  :  GO  TO  SSS 
510  IF  fl$  (LEN  fi$U=”  “  THEN  LET 
R$=R$ (  TO  LEN  R$-PJ :  GO  TO  610 
520  LET  B$=“";  FOR  Z=P  TO  LEN  A 
$:  IF  R$  iZ'J  =  "  “  THEN  LET  B$=P$  (Z 

-rP  TO  )  :  LET  R$  =  A$  (  TO  Z-P>  :  RET 
URN 

630  NEXT  Z.  RETURN 

700  RESTORE  S 000:  FOR  Z=P  TO  7: 
RERD  fi$,B$:  IF  OtZ)=0  THEN  LET 
O  (Z)  =  UAL  B$ 

710  NEXT  Z:  LET  05=0;  RETURN 
500  PRINT  '"EXITS;  (“NORTH  ** 

RND  N) ; ("SOUTH  "  RND  S>  ; ("ERST  " 
RND  E) ; ( " UEST “  RND  U ) 

S10  PRINT  ' " I  CRN  SEE.." 

520  LET  FL=Q;  FOR  Z=P  TO  7 :  IE 
O (Z ) =LOC  THEN  PRINT  “R  “;0$(Z): 
LET  FL=P 

530  NEXT  Z:  IF  NOT  FL  THEN  PR IN 
T  "NOTHING  INTERESTING." 

54-0  RETURN 

900  GO  SUB  BSCS ;  CLS 
999  LET  N=0.  LET  S=0:  LET  E  =0 : 
LET  U=Q ;  GO  SUB  LOC*3:  GO  SUB  SO 
0 

1000  INPUT  INK  5  :  " UHflfT  SHALL  I  D 
O  NGU?"'  LINE  A$:  IF  R$=“"  THEN 
GO  TO  C 

1010  IF  LOG =12  RND  RND > . 9  AND  GU 
THEN  PRINT  '“THE  GUARD  TURNED, 
5RU  ME ,  THEN  SHOT  ME .  I  RM  DERD 
. " ;  GO  TO  90S0 

1050  GO  SUB  600:  PRINT  '  INK  6,0 

$ ;  "  ";b$ 


1060  IF 

C  =LOC — F : 

R$  = 
GO 

"N" 

TO 

PND 

C-P 

N 

THEN 

LET 

LO 

1970  IF 
C=LOC+F : 

R$  = 
GO 

TO 

PND 

C-P 

S 

THEN 

LET 

LO 

1050  IF 
C=LOC+P  : 

R$  = 
GO 

“ET 

TO 

RND 

C-P 

e: 

THEN 

LET 

LO 

1390  IF 
C=LOC-P; 

R$  = 
GO 

*‘U“ 

TO 

PND 

C-P 

u 

THEN 

LET 

LO 
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1100  IF  A$=“N"  OF?  R$=“S“  OR  A$  =  “ 
E”  OR  R$=”U”  THEN  PRINT  “I  CAN'T 
GO  IN  THAT  DIRECTION. “ :  GO  TO  C 
1110  IF  A$  =  ,‘GET”  OR  fi$  =  'TAKE"  TH 
EN  GO  TO  200© 

1120  IF  A  $  = “DROP “  OR  fl$  =  ‘*PUT“  TH 
EN  GO  TO  2100 

1130  IF  R$=“I”  THEN  GO  TO  2200 
114-0  IF  A$  =  “LOGK"  THEN  CL5  :  GO 
TO  C-P 

1150  IF  A  $  =  “ HELP “  THEN  GO  TO  230 

0 

1160  IF  R$=" BOARD “  OR  R$="CAT CH" 
THEN  GO  TO  2400 

117S  IF  A$=‘‘UHLOCK"  THEN  GO  TO  2 

I1S0  IF  R$=  “ OPEN"  THEN  GO  TO  260 

0 

1190  IF  A$="D”  THEN  GO  TO  2700 
1200  IF  A$=”OUlT “  OR  R$=“5TOP"  T 
HEN  GO  TO  ©90© 

1210  IF  R$  =  "FiERD"  OR  R$  =  “EXflMINS 
■’  THEN  GO  TO  2S0© 

1220  IF  fl$=“KILL"  THEN  GO  TO  2S3 

© 

1230  IF  A$=“CUT'  THEN  GO  TO  3000 
1240  IF  R  $  =  "PRESS"  OR  R$="PU5H" 
THEN  GO  TO  310© 

1250  IF  R$="5fiUE“  THEN  SRUE  “CTT 
Y**  LIME  999:  PRINT  “VERIFY  *  .  »  “  : 
VERIFY  GO  TO  C 

1260  IF  A$=”SAY"  THEN  GO  TO  32S3 
1300  PRINT  “I  DON'T  UNDERSTAND . " 
:  GO  TO  C 

2000  IF  B$  =  ““  THEN  INPUT  INK  5; “ 
GET  UHRT  ??"'  LINE  S$:  GO  TO  2S3 

2002  IF  LEN  B£>  13  THEN  PRINT  “I 
CAN'T":  GO  TO  C 

2005  IF  OB  =  3  THEN  PRINT  “I  CAN'T 
CARRY  ANY  MORE . “ :  GO  TO  C 
2010  FOR  Z=P  TO  7:  IF  0$ tZ>  (  TO 
LEN  =E>$  RND  0(ZJ=L0C  THEN  LET 

0(2) = O :  LET  GS=GBri.  PRINT  “OK. 
. “ :  GO  TO  C 

2020  NEXT  Z:  PRINT  “I  SEE  NO  “ ; & 
“  J  “  .  GO  TO  C 

2100  IF  B$=““  THEN  PRINT  R$;  “  UH 
AT?”:  GO  TO  C 

2110  IF  LEN  13  THEN  PRINT  “I 

CAN'T.”:  GO  TO  C 
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£120  FOR  Z=P  TO  "7:  IF  0$  (Zi  1  TO 
LEN  B$}  =B$  THEN  PRINT  “OK..”:  1_E 

T  D(Z:i  =LOC:  LET  GB=OB-l:  GO  TO  C 
2130  NEXT  Z  .  PRINT  "  X  HfiVE  NO  " ; 
B$;  ’*  1”:  GO  TO  C 

£200  PRINT  "I  H3UE  THE  FOLLOW IMG 
.  LET  FL=0:  FOR  Z=P  TO  7:  IF 

0(Z)=0  THEN  PRINT  "R  ”.:0*(Z):  LE 
T  FL=P 

2210  NEXT  Z:  IF  NOT  FL  THEN  PR IN 
T  "NOTHING." 

2220  GO  TO  C 

2300  IF  LOC^i?  THEN-  PRINT  "RSK  T 
HE  U ILLflGE  PEOPLE.”:  GO  TO  C 
2310  PRINT  "FOLLOW  THE  OLD  LONDO 
N  -  BRISTOL  ROfiD ‘ ” :  GO  TO  C 
24-00  IF  B$  =  ”  "  THEN  PRINT  R$;  "  UH 
RT  7 " :  GO  TO  C 

2410  IF  PND  E?$<>"TRX 

X"  THEN  PRINT  “I  CRN ' T . “ :  GO  TO 

2420  IF  B$='TRfiIN"  PND  LOC<;-3  RN 
D  LOCO  15  THEN  GO  TO  2490 
2430  IF  B$="TflXI"  RMD  LOCOS  RND 
LOCOS  THEN  GO  TO  2430 
2440  IF  B$= "TRRIN”  THEN  GO  TO  24 
70 

2450  IF  0(2}  THEN  PRINT  ”1  HRUE 
NO  MONEY  FOR  THE  FfiftE . “ :  GO  TO  C 
2460  PRINT  "THE  TfiXI  DRIUE5  OFF 
WITH  ME  INSIDE.”:  LET  LOC=L O 

CHF  AND  LOC  —3 i  —  \  F  PND  LOC  =  8)  :  G 
O  TO  C-P 

2470  IF  0(3}  THEN  PRINT  "I  NEED 
R  TICKET! * “ :  GO  TO  C 

2480  PRINT  ”1  GET  IN  AND  THE  TR.P 
IN  MOUES  fiUfiY. “:  LET  LOC= (3  R 

ND  LOC  =  15  J  + L 15  RND  LOC=3)  :  GO  TO 
C-P 

2490  PRINT  “I  CAN'T  DO  THAT  YET, 
” :  GO  TO  C 

2500  IF  B$=”“  THEN  PRINT  “UHRT  5 
HALL  I  UNLOCK?” :  GO  TO  C 
2510  IF  B $  <  > ” DOOR “  THEN  PRINT  "I 
CRN ' T  DO  THRT . ” :  GO  TO  C 
2520  IF  LOC  < >7  THEN  PRINT  “UHRT 
DOORS":  GO  TO  C 

£530  IF  DO  THEN  PRINT  “YOU  IDIOT 
IT'S  RLRERDY  UNLOCKED! 

5  '•  :  GO  TO  C 

2540  IF  0(5}  THEN  PRINT  "I  NEED 
THE  KEY.":  GO  TO  C 
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:  LET  DO  =P  :  GO 


S550  PRINT  "OK.." 

-y  fj  Q 

26®0  IF  B$  =  ""  THEN  PRINT  “OPEN  U 
HRT?":  GO  TO  C 

£610  IF  B$0“DOOR”  THEN  PRINT  “I 
CRN ' T . “ :  GO  TO  C 

2620  IF  LOCO?  THEN  PRINT  “I  CRN 
'T  SEE  R  DOOR.'";  GO  TO  C 
2630  IF  NOT  DO  THEN  PRINT  “ IT ' 6 
LOCKED.":  GO  TO  C 

264.0  LET  DO  1  =P :  PRINT  "OK..  J. 

CRN  SEE  SOME  STRIPS  GOING  D 

OWN.”:  GO  TO  C 

£7*00  IF  LOCO?  THEN  GO  TO  24-00 
2710  IF  NOT  DO 1  THEN  PRINT  "THER 
ES  R  DOOR  IN  THE  UAY ! “ :  GO  TO  C 
2720  PRINT  "OK..":  LET  LOC=LOCtF 
:  GO  TO  C-P 

2600  IF  B$=‘”  THEN  INPUT  INK  5;  < 
R$)  ;  "  UHRT?"  '  LINE  B$:  GO  TO  260 

3 

2610  IF  B$<>"CLUE"  THEN  PRINT  "I 
CRN ' T  DO  THfiT'":  GO  TO  C 
£620  IF  0(6)  THEN  PRINT  "I'M  NOT 
CARRYING  R  CLUE.":  GO  TO  C 
2630  PRINT  "THE  CLUE  IS  WRITTEN 
ON  A4. -SIZED  PAPER .  IT  SAYS:  'RUB 
R  DUB  DUB GO  TO  C 

2900  IF  B$  =  ""  THEN  PRINT  "KILL  U 
HAT?":  GO  TO  C 

2910  IF  B$<> "GUARD"  THEN  PRINT  ' 
X  REFUSE  ON  MORAL  GROUNDS . " :  GO 
TO  C 

2920  IF  LOO  0  12  THEN  PRINT  "I  CA 

N'T  SEE  R  GUARD]":  GO  TO  C 

2930  IF  O(P)  THEN  PRINT  “I  HfiUE 

NO  UERPON . " :  GO  TO  C 

£34.0  PRINT  "OK..":  LET  GU  =  D:  GO 

TO  C- 

3000  IF  B$=“"  THEN  INPUT  INK  5; " 
UHRT  SHALL  I  CUT?"'  LINE  B$:  GO 
TO  3©00 

3010  IF  B$<  >■  “vfiULT  DOOR"  THEN  PR 
I NT  "I  CAN'T  DO  THAT.":  GO  TO  C 

3020  IF  LOC  <  > 16  THEN  PRINT  "I  SE 

E  NO  URULT  DOORS  HERE ! “ :  GO  TO  C 
3030  IF  0(4-)  THEN  PRINT  "I  HAUE 

NOTHING  TO  CUT  IT  WITH.":  GO  TO 

Q 

304-0  PRINT  "OK..":  LET  UC  =  P:  GO 
TO  C-P 
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3100  IF  L0CO21  THEN  PRINT  "THER 
E  •'  S  NOTHING  HERE  TO  :  GO 

TO  C 

311©  IF  LEN  B $  <  > P  THEN  PRINT  "X 
NEED  A  NUMBER  BETUEEN  1  AND  9 . ** : 
GO  TO  C 

3120  IF  B$<**1"  OR  B-p>**9“  THEN  PR 
I NT  "THAT'S  NOT  R  NUMBER! I " :  GO 
TO  C 

3130  LET  Z=UAL  Bg:  IF  Z<>3  THEN 
LET  LOC  =  LOC  -hP :  GO  TO  C-P 
314.0  LET  LOC=LOCrF:  PRINT  “ THE  X 
RON  DOOR  SLIDES  BRCK  SLOUL 

Y  ..."  i  GO  TO  C -P 

3200  IF  B  $  =  " “  THEN  PRINT  “ SRY  UH 
RTT”:  GO  TO  C 

3210  IF  B$  <;-“ PASSWORD"  THEN  PRIN 
T  ” I  CRN ' T  SRY  T HRT i  “ :  GO  TO  C 
3220  IF  LOC=15  RND  NOT  O  C7>  THEN 
PRINT  ''”1  HAUE  FOUND  THE  CO NT ft 
CT ,  RND  HAUE  SUCCESSFULLY  COMP 
LETED  MY  MISSION.  THE  CONTACT  U 
AS  THE  TRAIN  DRIUER.**:  GO  TO 

9000 

3225  IF  LOG =3  OR  LGC=B  THEN  PRIN 
T  “THE  TAX I  DRIUER  SAYS  SOMETHIN 
G  UERY  RUDE  TO  HE.":  GO  TO  Q 
3230  PRINT  ' "NOBOSY  APPEARS  TO  U 
ANT  TO  KNOU .  **  ;  GO  TO  C 
3000  LET  0=PI-FI:  LET  P=NOT  O 

6310  LET  F=UAL  "S“  :  LET  LOC=UAL 

..  13.. 

3020  LET  0B=O.  LET  00=0 :  LET  GU= 
P;  LET  UC=D:  LET  C=UAL  "1000" 
©030  DIM  0(7) :  DIM  0$ (V , 13) 

3040  RESTORE  SOSO:  FOR  Z=P  TO  : 
READ  0$(Z),R$:  LET  O (Z) =URL  A$. 
NEXT  Z 

©050  DATA  “  KNIFE  “  ..  "  4-"  ,  "WfiLLET  "  ,  ” 
9"  ,  "TUBE  TICKET"  ..  "lO"  .  "BLOWTORCH 
"  ,  “IB"  ,  “KEY"  ..  “19“  .  “WRITTEN  CLUE" 
”20 “  ,  “CASE  OF  MONEY “  ..  “2S“ 

8060  PRINT  ''TAB  11:  INK  6; “THE 
CITY**''”  WRITTEN  BY  NEIL  PELL  IN 

fiCCI* .  PRESS  ANY  KEY  TO  STA 

RT  ** 

8070  PAUSE  P:  PAUSE  Q:  FOR  Z=50 
TO  -20  STEP  -5:  BEEP  .01,Z:  BEEP 
i0LZ  —3 :  BEEP  .01.2+6:  NEXT  Z 
SOSO  RETURN 
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3900  INPUT  "RRE  YOU  SURE? 

Y  /N  ** ;  LINE  R$:  IF  R$  =  ” 
THEN  GO  TO  ©SO© 

R910  IF  P$<P>=“Y'*  THEN  GO  TO  9© 

0 

3920  GO  TO  C 

9000  INPUT  ‘’DO  YOU  URNT  TO  PLOY 
AGAIN?  Y,'N".  LINE  R$:  IF  &$=' 
THEN  GO  TO  9000 
9010  IF  P$(P>="N"  THEN  STOP 
9020  RUN  900 


76 


Doors  of  Doom 


This  is  a  masterpiece  program  by  Malcolm 
Young  which  will  well  reward  the  time  it 
will  take  you  to  type  the  whole  thing  in. 

This  graphic  Adventure  is  based  around  the 
maze  routine  at  lines  1000  to  1400.  The 
routine  starting  at  line  2000  handles  the 
graphics . 

When  Malcolm  started  writing  the  program, 
he  had  intended  it  to  be  simply  a  3D  Maze 
program.  However,  once  he  had  that  up  and 
running  he  decided  he  could  make  it  a  lot 
more  interesting  and  the  result  is  here 
for  you  to  see.  Full  instructions  are 
included.  A  word  of  warning:  The  program 
generates  mazes  which  are  extremely 
challenging,  and  difficult  to  solve.  Do 
not  run  this  program  if  you  want  a  game 
you  can  master  in  an  hour  or  so. 

2  REM  ©1983  Malcolm  Young 
2©  DEF  FN  f  (X.>=INT  fRND#X)  1-1 
25  LET  set=0 

3©  GO  SUB  9000 :  JR  JEM  instfUCtiO 

~  4.0  BORDER  4..-  PAPER  S-  INK  ©:  C 

; ,  3 

5©  GO  SUB  10B0:  REM  gsnsrs te  ® 

SIS 

&a  go  sub  sea©.-  rem  initialise 
v a  r i ables 
TO  GO  TO  23© 

S©  NEXT  3 

90  REM  main  driving  routine 
i®0  LET  fc$=INKEY$:  IF  K$=""  OR 
THEN  GO  TO  10© 

11©  LET  f  =/+ -  Ck»  =  **f)  +2 

Sr  iX  $  =  > 
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120  LET  f  =f+±*  (  f  <13  -4*  if  >4-.) 

230  2 F  k$  =  "J»"  THEN  GO  SUB  5000 
135  XF  K$="f"  THEN  LET  J»$(py,PX 

.>= . :  LET  l  (213  =t  <223  -L  (233  I 

F  5.  (11)  <0  THEN  GO  TO  500 

14-0  LET  px=px+((K$="f‘,)*((f=2)- 
i  f  >  y 

25©  LET  py=py+(  (R$  =  ''f")  *(  (f=3)  - 

f  f  =2)  3 3 

255  XF  »$(py,px)  ="»r  THEN  LET  s 
W  =2  ;  LET  px  =PM  -  (  f  =23  (  f  =43  :  LET 

py=py-(  /  =33  +  (  f  =13 
160  XF  M$(py,px) =CHR$  128  THEN 
30  SUB  6000 

170  IF  »$(py,px)  THEN  GO  TO 

3600 

275  IF  gl=py  ft ND  g2=px  THEN  GO 
TO  S00 

280  XF  k$="c"  THEN  LET  re=2-re: 
LET  X  $?  =  “/“.-  GO  TO  24-© 

2S0  XF  K$?=“y“  THEN  GO  SUB  700© 
300  IF  1(73  RND  k$="d"  THEN  GO 
SUB  72B© 

210  IF  l  (S3  AND  R  $  ="  t  **  THEN  GO 
SUB  650© 

220  XF  R  $  =  "£"  THEN  INPUT  "Do  y-E 
u  want  to  save  this  gaffle?";  LINE 
3*;  IF  a  $  =  "y  •*  THEN  GO  SUB  7500: 
CLS 

23©  CLS 

24-0  PRINT  80;  INVERSE  2;  "NORTH” 
RND  f=l;  "EAST"  RND  f  =2.'  "SOUTH" 
RND  f=3;  “UEST"  RND  f=4-;  INVERSE 
3;"  *■;  FLASH  l;  “REPEAT"  RND  re; 

flash  ©; trb  15; “Energy l (223 
25©  BEEP  .1,10:  GO  SUB  2000 
260  IF  INKEY$  =  ‘‘"  RND  (re^f)  THE 
N  LET  X$  =  ”f:  GO  TO  135 
27©  IF  S h<  THEN  PRINT  RT  20,11; 
FLASH  l;  "SOLID  UftLL  '*  BEEP  2,-20 
:  LET  S  Iti  =NOT  SW 
230  GO  TO  200 
500  REM  end  of  g 3E> e 
510  CLS 

520  PRINT  ftT  10,0; "You  have  ste 
rved  to  death..." 

530  PRINT  '"Your  bones  litter  t 
he  maze  with  those  of  stany  other 

<Z  *  i 

~540  GO  TO  4-633 
600  REM  finish 
S0S  PPPER  INK  7 .  Cl.  5 
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610  GO  SUB  5160:  PRINT  RT  4-,0; 
©20  FOR  i  =4.0  TO  4-S  STEP  .  5 :  SEE 
p  -25,i:  PRINT  "We l l  done*  You  m 
ads  it.'":  NEXT  i 
525  FLASH  1 

530  PRINT  INK  6; "YOU  accomplish 
ed  the  t  a  s  R  with" 

635  INK  4 

64-0  IF  l  (10)  >200  THEN  PRINT  "3 
great  amount  of  ski  U." 

550  IF  l (10) <200  RND  t (10) >100 
THEN  PRINT  "well  deserved  merit" 
655  IF  1(10) <100  THEN  PRINT  ”3 
considerable  amount  of  lucX" 

660  GO  TO  4-S 4- 2 
1000  REM  Maze  Generator 
1002  PAPER  0:  INK  5:  CLS  :  PRINT 
"The  maze  can  take  a  considerab 
Letime  to  construct  so  it  is 
advisable  to  have  the  larger 
mazes  stored  on  cassette-" 
1004.  PRINT  ''"Please  enter  the  d 
i  mens  ions-  of  your  maze  so  tfc-Bt 
it  has  a  widthbe tween  30  RND  100 
and  a  length  between  20  RND  100 

1006  INPUT  "Would  you  liti  to  RE 
STORE  a  gameanswer  (y/n>?  :  L.I 

HE 

100S  IF  a^="y"  THEN  GO  SUB  7600: 
RETURN 

1010  INPUT  "Enter  Width  of  Maze: 
■*;m.  LET  111  =INT  (wx2) :  IF  iii<15  OR 
W >50  THEN  GO  TO  1010 
1320  INPUT  "Enter  Length  of  Maze 
:";l:  LET  L  =IMT  flx2):  IF  l  <13  O 
R  l >50  THEN  GO  TO  1020 
1330  LET  S=INT  (WSl/3)  :  LET  S  =IN 
T  (S  +S/1B3  :  DIM  l  (S)  :  DIM  d  (S) 

1032  LET  S  =S  + INT  (RNDJS/3)  :  LET 
t=INT  (S/60)  :  LET  1 1=  (S -t  *60)  X  1© 
0 :  LET  t  =  t  +  1 1 

1033  POKE  23674- ,0:  POKE  23673,0: 
POKE  23672..  0 

1035  PRINT  '''"Please  expect  to 
wait  at  least  approximate ly  t 
"  ainutes “ 

104-0  LET  !tt=W*2+l;  LET  n  =  1*2  +  1:  D 
IH  m$fn,m) 
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{*&  Jii.it  Jihll  Jil.'j  |«)i  j.^  j.*A  J«i  j.*ii  j  j]  J*»i<  foi*  )nA  J...J  J..UI  ^  J  foil  )>i»»  |><4  2""  5b>  $«■!»  JW  |t«il  y*\‘  j«i  J*oi  •■">J  fn/«  '••’j  JwA  ‘".‘J  fail  *'«j  jwit  {«!]  jw*t  J|  {j^J  J»j> 

0*  p.  ^  Q  y  y  0)  Q  0)  0)  ©  2  Q  01  ft)  fU  ft)  fO  W  ft)  ft)  JO  JO  ft)  P p  P  w  P  ••-  P  p  C)  P  0  P  0  P  O  P  ©  ©  ©  :  ©  :  © 

rop0©o)^©yif*yro  pstDCfl-JouiUMdrop©©  ©  -4  ©  yip  u  to  p  ©mco'.m©1- ui 

©©©Q©000©©©0©©00©00©©©©©©  ©  ©  ©  ©©P©P©P©P©Q©0  ;©  © 


FOR  i =1  TO  rn:  LET  ift$ (I,i)=M 
LET  B$  tn  ,  i  J  NEXT  i 

FOR  i  =3  TO  n-X:  LET 
:  LET  m$(i  NEXT  i 

LET  nn  =2  ^INT  CRNDff*  i  l  -23  3  +3 
LET  *ft!fi=2*XNT  (RND*(»-a))+3 
LET  (nn  =  "8"  :  LET  R  =0 

if  m $  inn -2 =**  ”  then  go 
210 

IF  inn+2,J6»)  =  ■'  “  THEN  GO 

210 

XF  m$  fnn,M-2)  =J<  "  THEN  GO 

210 

XF  inn  "  THEN  GO 

210 

XF  X  -1=0  THEN  GO  TO  14-20 
JF  d  i  X  3  =1  THEN  LET  nn=nn  +  lC 

XF  d  f  K  3  =2  THEN  LET  nn =nn - l C 

XF  d  (  K  3  =3  THEN  LET  ± l  £ 

XF  d  C  K  3  =4.  THEN  LET  i\ 

LET  R  =  R  —  1 
GO  TO  1100 

LET  l  1  =2  S  IHT  LRMD:fr3.>.  *2 
XF  1 1=3  THEN  GO  TO  1210 
LET  dl=INT  CRND*4J +1 
JF  d 1 >  2  THEN  GO  TO  12S© 

LET  £=-1+2* (dl=2) 

LET  t  =0 
GO  TO  13©0 
LET  S  =0 

LET  t  =-1+2*  (dl=4.) 

FOR  i =2  TO  l 1  STEP  2 
XF  »)$i‘nn+Sii  TH 

i  TO  121© 

NEXT  i 

FOR  i =1  TO  11 

let  J8  $mn  *i  ,i»fa  +t  *i  y  ="#'• 

NEXT  i 

LET  nn=nn+s^li 
LET  +  ii 

LET  R  =  R  -hi 
LET  l  f  K  3  =11 
LET  d  t  R  J  =d  1 
GO  TO  11©0 
REM  no.  of  doors 
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2425  LET  nd=  INT  (U4.)  f5)/25)  : 

LET  Stand/14. 

143S  LET  l  (43  =!»  :  LET  l  tEO  =n 
14-35  REM  hide  objects 
144-0  FOR  0=1  TO  4 
1450  FOR  i  =  2  TO  St 

1450  LET  l  =FW  jr  f  i  *5!  -31  +1/  LET  c 
— FN  r  f  1(4)  -35  +1.*  LET  Kn=FN  r  (53  * 
10+0 

1470  JF  THEN  GO  TO 

1450 

1450  LET  =CHR$  (4S+KnJ 

1430  NEXT  i 
ISO©  NEXT  O 

1510  REIi  hide  food  and  villains 
1520  FOR  0=5  TO  7  STEP  2 
153©  FOP  i  =1  TO  St  *3 

1540  LET  t  =FN  r  f  l  (53  -33  *2;  LET  C 
=FN  r  (  l  143  —33  +2 :  LET  KD  =FN  r  l 53  * 
10+0 

2550  JF  U$fl#cJ  <>"»"  THEN  GO  TO 
1540 

2550  LET  (  l  ,  C3  =CHR$  UBUn) 
157©  NEXT  i  ;  NEXT  O 
158©  REH  hide  treasure 
1530  FOR  i =2  TO  S t *4 

ISO©  LET  UFN  r  *  t  153  -33  +1.  LET  C 
=FN  r  ?  I  (43  -33  +2  ;  LET  Kn  =FN  f  (53  * 
l©  +  b 

1510  IF  ifi$  l  l  ,  C3  <  >  THEN  GO  TO 

150© 

152©  LET  J»  $  f  l  ,  C  3  =CHR$  tiS+Kn) 
153©  NEXT  i 

2540  LET  j»$  f  l  i5)  ^2  ,  i  (4  3  .*'23  =CHR* 
(4S+FN  f  (53  +10  +  S) 

2550  REM  hide  Keys 
Ibb©  FOR  i =2  TO  4+St 

2570  LET  l=FN  r  f  l  (53  -43  +2;  LET  € 
=FN  r  (  l  (43  -43  +2 

15S0  IF  "  THEN  GO  TO 

257© 

1530  LET  fi)$ft,C3=CHR$  22S 
1700  NEXT  i 
1705  LET  set =2 

271©  LET  ti^e=(PEEK  23S72+25S+PE 

EK  23673+65536 +PEEK  23S743 

2720  LET  ti»e=ti!6e/50:  BEEP  2,10 
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173©  INPUT  "This-  maze  took  ";  fti 
met}"  seconds  to  genera te , «ou  id 
you  li  Re  to  save  it  for  future- 
use'?"  ;  a$ 

174.0  IF  aj  {1)  ="y"  THEN  GO  SUB  75 

30 

175©  CLS  :  RETURN 

2000  REM  display  view 

2©10  BORDER  1;  PAPER  0:  BRIGHT  1 

2020  LET  X  =24- ;  LET  y=16:  REM  wal 

I  ang  le  gradient 

2030  FOR  i =1  TO  6 

204-0  LET  ly  =py+  {  ff  =33  -if  =  13  3  *i 
2050  LET  lx=px  +  t  f  f  =2)  -  i  f  =4-)  )  *i 
2050  IF  m $ C ly ,  lx 3  <"»"  OR 
X ) =CHR$  12S  THEN  NEXT  i 
2055  LET  dt  =  t»*fly,  IX)  ="  "3 

207©  LET  VW  =i  -1- li  >63  :  REM  »axi@ 
us  viewing  distance 

2075  IF  NOT  VW  AND  B  $  f  l y  ..  lx)  >  "U" 
THEN  GO  SUB  2500 
2060  LET  BX=VB#X:  LET  l»«y=VU«*-y 
2©90  FOR  d=0  TO  VW.-  REM  dividing 
pane  ts 

210©  LET  h=255-dJX»2 
2110  PLOT  d*X,d*y;  DRAW  0,175-fy 
*d3*2:  IF  d=VW  THEN  DRAW  h,0 
2115  PLOT  d*X+l,d*y;  DRAW  0,175- 
Cy  #d)  *2 

2120  PLOT  255-d*X ,17S-d*y  .  DRAW 
0  ,  —  i  175— y  *2 3-d  3  :  DRAW  -H  ,  0 
2125  PLOT  254-dJX,175-diy.  DRRIJ 
0 , - (175-y*2Jd) 

2130  NEXT  d 

214-3  FOR  i  =0  TO  VW-1:  REM  draw  ¥ 
a  *_  is 

2150  LET  ly=py+f  U=3)-J/=1.U»U  + 

1  > 

2150  LET  IX  =PX  +  f  t  f  =23  -  f  f  =4-3  .1  *  V  i  a 

i:« 

2170  LET  d$=m$  (  Ly  -  {  f  =23  +  i  f  =4-3  ,  l  X 
- C  f  =13  +  ( f  =3)  3 

2175  LET  lwall=td$="tt")  :  LET  Idr 

= (d$>”#") 

2150  LET  d$=ffi$fly+(f=2)-0'=4)  ,lx 
+  C  F  =1)  -  (  f  =3)  5 

2190  LET  r»all={d$="r')  ;  LET  rdr 
=  >:d$>  "a"} 

2195  IF  < Idf+fdr)  THEN  GO  SUB  23 

30 


B2 


2197  GO  TO  ldr*7+2200 

2200  PLOT  i  iX,i  *y+y  *NOT  (.watt;  D 

RftU  x  .,yj  (  iwa  l  l) 

2205  PLOT  i  *X  ..  175-  (i  *y  +y  *NOT  IBS 
t  t  )  :  DRRU  x,-(y*lwaiu 
2207  GO  TO  rdi-  S-20+22 10 
2210  PLOT  255-iiX,iJy+y*NOT  rwst 
i ;  DRfilJ  -x,yt{r»ail) 

2220  PLOT  255 -i  *X  ,175  -  Vi  *y  +U  3- NOT 
r  watt  3  ;  DRflIJ  -x,-(yfr»atU 
223©  NEXT  i 
224-0  INK  5:  LET  P  =5 

2250  LET  V  =255/p  :  LET  £  =  (255-2*1# 

X  3  P 

226©  FOR  t=i  TO  p -1 
227©  LET  h=  VWX +C*l  3  -V*l 
22S©  PLOT  V  *  i  ,  0 DRflU  h,»y 
230©  NEXT  l 

231©  IF  dt  THEN  PRINT  FLASH  1;  D 
MER  1;  RT  10,15;  11,15;  "SEi 

2320  IF  NOT  re  THEN  RETURN 
2325  LET  r =1 

233©  REM  checK  for  repeat 
234.0  FOR  i  =0  TO  1 

2350  LET  ry  =py  +  (  t  f  =33  -  V  f  =13  3  *i 
LET  rx  =p.x  +  V  (  f  =23  -  V  f  =4-3  3  *i 
236©  LET  r  =r  *  V  ry  #•  V  f  =23  -  V  /  =4-3  , 
r  X  +  C  f  =33  -  V  f  =1 3  3  ='*»•' 3 

2370  LET  r  =r  *  (5»$  V  ry  -  V  f  =23  +  V  f  =4-3  f 

rx -  V  f  =33  +  C  f =13  3  ="#”3 

2360  NEXT  i ;  RETURN 

2390  REM  draw  door 

24-00  LET  X=l/li  #-13  3-5 

24-10  FOR  J  =1  TO  7 

24-20  IF  l  dr  THEN  PLOT  i*X+J*3,i* 

y  +  j  *2 

2425  IF  Idf  THEN  DRAW  XNK  5,:0,17 
5— (i  *y  *  J  *23  *2 

243©  IF  r dr  THEM  PLOT  255- V i *X 
s3  3  /  i  +  j  *2 

2440  IF  rdr  THEN  DRRU  INK  S;0,17 
5- Ci  *y  #-j*2)  *2 
2450  NEXT  j 
2460  RETURN 

2460  PLOT  100,10©+X;  DRAW  t ,0, — P 
U1.75 

2490  DRRU  K/2,5,-K*1.5;  DRRU  -X.* 
2.5*2-K,0,-PI:  DRRU  R/2.5,K*1.5 

2491  RETURN 
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2B0©  door 

as  a©  paper  e.  ink  ©.-  cls 

3520  PRINT  AT  10,4-;  "B  ODD  R"-- 
BEEP  ,5.,  1© 

2530  PAPER  0:  INK  5 
2540  RETURN 
3600  REM  enter 

SB  IS  IF  l  (3.23  THEN  GO  TO  3000 
2620  PRINT  RT  2,4-.;  FLASH 
rM,no  Key -no  entry.'" 

2630  LET  PX  =P X  -  (  f  =23  +  (  f  =4-3  :  LET 

P y =py -  f  f =  33  + ( f =13 

264-0  BEEP  1,-20:  GO  TO  10© 

2700  REM  found  centre 

2710  IF  pyoINT  (  t  (5)  /2)  AWE'  PX  < 

>  I  NT  (1(4.3X23  THEN  RETURN 

2720  CLS  :  RESTORE  2900 

273©  PRINT  "The  door  creaHs  sins 

ly  open  .  -  - 

274.©  FOR  i  =-30  TO  -20  STEP  .5:  B 
EEP  -  1  ,  i  :  NEXT  i 

27S0  FOR  i =1  TO  FN  fC S3:  READ  t$ 

.  NEXT  i 

2760  PRINT  "And  there  in  the  cen 
ire  of  the  room  lies  the  ultima 
te  goa  l  -  -  -  "  'TAB  2;  t  $;  "  .'  “ 

277©  PRINT  '"And  now  you  have  to 
taKe  this"'" ba  c  K  to  an  exit  sit 
Mated" 

2773  LET  Ss  $  ipy  ,  px  3  ="  " 

2760  LET  d 1 =FN  r  ( l  (S3  3  :  LET  d2=F 
N  f  fl  (43) 

2765  LET  ffl$(gl,g2) ="  ” 

2790  GO  SUB  550© 

2610  LET  b=FN  r  (1003  :  LET  l  (113  = 
L  (113  -i-b 

2620  PRINT  '"You  have  also  found 
a  Vi ta® in" ' "pi  1 1  boosting  your 
energy  by  b 

2 64-0  BORDER  0 :  PAPER  0 .  INK  5 
2650  PAUSE  0 
£660  GOTO  230 

2900  DATA  "a  slave  for  life", "a 
ticKet  to  Ti  J9  buK  tu  "  ,  "an  autosati 
c  house  c  leane r " , ” the  lions  rugfc 
y  tea®  beating  the  MZ  ALL  BLACKS 
"/’the  answer  to  l  i  fe  .  .  .  4-2?  " 

2910  DATA  "a  free  2X83,4,5,6..,“ 
/‘an  eternal  supply  of  lager", "1 
2  million  mars  bars” 
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3® 3©  REM  open  door 

302©  LET  J  =CODE  *  $  < P  y  ,  PX  J  -4-3  :  LE 
T  l  n  =  JNT  (j/10) 

3028  PRINT  RT  0,3;  INK  6; “The  do 
or  has  lock  no.";  in 

3025  IF  l  (go  THEN  print  "Your  s  & 
eieton  Keys  opens  the  door}"; 

PAUSE  100:  GO  TO  3070 
3030  IF  l (12) Oln  THEN  PRINT  RT 
22,0;  INK  5;  "You r  Key  doesn't  fi 
t , Keep  going";  GO  TO  2633 
3040  PRINT  RT  20,0; "Your  Key  fit 
s!  Do  you  want  to  unlock  this 
door?  fy/n} BEEP  2,10 
3050  IF  INKEY*=MnM  THEN  GO  TO  20 
30 

305©  IF  INKEY*  <  Vy"  THEN  GO  TO  3 

050 

30S5  GO  SUB  2700 

3073  LET  fat8=j-ln^l0:  BORDER  4: 

PAPER  S;  INK  2;  CLS 
3073  IF  fate  =S  THEN  GO  TO  2700 
3075  PRINT  "INSIDE, there  is..,,. 

:  BEEP  .5,3,*  BEEP  1,20 
3050  GO  TO  f 3 te *2©0+3©G0 
3090  REM  empty 

3200  PRINT  RT  3,5; "NOTHING! AT 
5 *  0; "Some  has  been  here  before  y 

ou  " 

3220  GO  TO  CRND>  .  SJ*  *S©  +3220 
3220  REM  lose  Key 

323©  PRINT  '"Your  Key  is  stuck  i 
n  the  lock*  "'"Do  you  want  to  spe¬ 
nd  some  time  trying  to  get  it  o 
u  t?“ 

3240  PAUSE  0:  IF  INKEY* <> "y "  THE 
N  GO  TO  3200 

3250  IF  l (6)  THEN  PRINT  "OK, it  S 
houldn't  take  a  second  using  y 
our  laser.":  LET  U6)=U6)-1:  LE 
T  i =1 :  GO  TO  3220 

3160  PRINT  "OK j I" it  wait  a  women 
t  while  you  try. " 

3270  PAUSE  7©:  FOR  i =0  TO  10+FN 
r  (50)  ;  BEEP  .02..  RND *30  —  25  ;  NEXT 

3180  IF  RND  >.7  THEN  LET  U13J  =1  f 
13^-2:  PRINT  "It  won't  come  out., 
you'll  have  to  leave  it.";  GO  TO 
322© 
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31B5  PRINT  "YOU  got  it?  ’•'"but  "  ; 

3190  PRINT  "You  wasted  ";i;**  ene 
rgy  units  in" '"your  attempt.":  L 

ET  l  C  11  5  =1  (11.1  -i 
320©  GO  TO  4-900 
329©  REM  laser 

330©  LET  u  =FN  rt31+2:  PRINT  RT  3 
16;q$(l) '"With  enough  EUE RYRERDY 
batteriesto  last  ";u;"  uses!" 
3310  IF  l 163  THEN  PRINT  RT  3,0; " 


Rn  other  ” 

3315  PRINT  TRB  12;  "  ftSMTI  'TAB 

S;  VI 

332©  PRINT  AT  9.©; "fi  laser  has 
n  'EC'  factor  of  3  ©o  yoo  want 


1 

3 


o  take  i t?" ' ' 

333©  IF  INKEY  $  =  ”n"  THEN  GO  TO  4-6 


9© 


3335  IF  INKEY$<>"y"  THEN  GO  TO  3 

33S 

334-0  IF  NOT  l  16  J  THEN  LET  l  f  131  = 
l C 13) +9:  GO  TO  3360 

3350  IF  1(61  THEN  PRINT  "Since  y 
ou  already  have  a  laser  you  Jus 
t  have  to  take  the  batteri 


336©  LET  l C6) «L (6) +U:  BEEP  .2,3; 
BEEP  .2,10;  BEEP  .2,3:  BEEP  .7, 

10 

3370  PRINT  '"You  are  now  the  pro 
ud  owner  of  adispcsable  ' LEPPY ' 

laser . guaranteed  for  l (61;  " 

uses  ?  " 

33S0  GO  TO  4-900 

34-90  REM  de»a  ter  i  a  li  ser 

3500  PRINT  RT  3 , 5 ; <q$ 121  ; AT  3,0;" 

An other  "  and  i  (7) 

3510  PRINT  RT  5,11;  "I";  TRB  5;  *' =f* 

rnmA*'  'trb  12;  "i 

3520  PRINT  '"This  enables  you  to 
disintegratesolid  walls  in  two 
blasts  and  tocbarcoal  any  villas 
n  you  j»a y  meet." 

353©  LET  U =FN  r (61 +2 
354-0  PRINT  '" This  one  has  " ;  u ;  *' 
cartridges" f2l ;  "has  an  'EC'**' 
"factor  of  14.” 

3550  print  '"Do  you  want  to  carr 
y  this  along?" 
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J56S  IF  INKEY$  =  "D"  THEN  GO  TO  4-B 

9© 


3S65  IF  INKEY$  <  >  '*  y "  THEM  GO  TO  3 
560 


3570  CLS  :  FOR  i  =0  TO  10;  BEEP  «, 
05,i ;  NEXT  i 

35S0  PRINT  FLPISH  1 ;  RT  2,9;"CONGR 
HTULflTIONS  »  ■* 

3590  PRINT  '"You  didn't  need  muc 
h  convincing  for  this  formidable 
weapon, as  it's  the  hottest  th 
ing  around  i  na rnou r men  t s  -  ** 

3600  IF  L (7)  THEN  PRINT  "YOU  WO 
n't  want  to  carry  around  two  of 
these  so  you  can  have  thecartrj 
dges  for  free  -  ** 

361©  PRINT  '“To  use  this  weapon, 
aij»  at  your  target  and  squeeze 

g  |*  g  y  /  ^  /  It 

3620  print  '"You  can  use  this  we 
apon  ,,;i(7)+u;"  times" 

3630  PRINT  '  INUERSE  1 ; " GOUERNME 
NT  WARNING: THIS  WEAPON  CRN  BE  D 
SNGEROUS  FOR  YOUR  HEALTH" 

3670  LET  l  (13)  =1  (13)  +14- ;  LET  t  (7 


•>  =1  (7)  +U 
3680  GO  TO  4-900 
3690  rem  transp 
3700  PRINT  RT  2 

another  "  and  i 

3710  PRINT  INK 
S;"P,-S";RT  5,7; 

:  == I" ,  FLRSH  1; 
ERSE  1 ;  "I  =  =  :  +  :  = 
3720  PRINT  "Thi 
hype  r-t rave ito 
of  the  maze  but 
rol  where  and 
wall  you  will 
o cated" 


orter  be  it 
,  6;  q$  (3>  ;AT  2,0;  ** 
<6) 

4 •;  PAPER  2;  AT  4- ,  1 
INUERSE  1  ;“  +  =  =  ;  t 
"T";  FLRSH  0;  INU 
=  -** ;  AT  6,15;  "  “  ” 
s  enables  you  to 
a  different  part 
you  have  no  cont 
i f  you  stop  in  a 
be  instantly  suf f 


3730  LET  u  =FN  r  (3)  +2 

374-0  PRINT  '“This  is  another  JRDd 

am . disposable  product  and  mu s 

t  be  discarded  after  ** ;  u ;  "  uses 
or"  '  "transport  failure  may  occu 


3750  PRINT  'q»l3>;**  has  an  'EC' 
factor  of  5" 

3760  PRINT  AT  20,3; “Do  you  want 
to  put  this  on 7” 
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37"?0  IF  INKEY$  =  Mn"  THEN  GO  TO  4-9 
0® 

378©  IF  INKEY$<  >"y  '*  THEN  GO  TO  3 

773 

3  "79®  CLS  :  LET  l  (8)  =U  :  LET  It  13} 
—  i  j 13}  +s 

380®  PRINT  RT  1,0;  "SOLD!  To  that 
daring  person  sitting  behin 

d  the  ZX  SPECTRUM. " 

3310  PRINT  '  "Use  this  belt  no  mo 
re  than  u ' "times . " - ' “To  jump  t 
o  hyperdrive  press  the  button  m& 
r Red  '  t - 

3820  PRINT  '  INVERSE  1; "THE  MAN U 
FRCTURER  WILL  NOT  BE  RESPONSI 

SLE  FOR  IMPROPER  USE  OF  THIS  TRR 
NSPORTER  BELT 

3830  FOR  i^l  T<3  5  :  BEEP  .  76  ,  i  :  U 
EXT  i 

3-34-0  GO  TO  4-90© 


3S9©  REM  site  te  ton  *ey 

390©  PRINT  RT  2,0;  q*  (4)  ;  “ 

39^©PRINT  '  TRB  *  TfiB  11; 

393©  print" ' ' "This  Xey  gives  you 
access  to  anydoor  in  the  maze.*" 
394-0  PRINT  '"You  can  use  it  as  ss 

any  times  as  you  liKe. . This  Re 

y  has  an  'EC'  factor  of  3" 

3950  PRINT  FLASH  l; "Do  you  want 
to  carry  this  along?” 

396©  IF  INKEY  $  =  "n”  THEN  GO  TO  4-B 
3© 

337©  IF  INKEY$<>**y"  THEN  GO  TO  3 

96© 

3380  FOR  i =1  TO  10:  BEEP  .1,6:  P 
RUSE  I©:  NEXT  i 
393©  CLS 

4.010  IF  NOT  1193  THEN  LET  l  fl3J  - 
t  <133  +3 

4-020  LET  l  <93  =1 
4-03©  GO  TO  4-900 
4-090  REM  food  (energy) 

4.100  PRINT  RT  2,10;  "Food!" 

4-110  PRINT  '"You  quicJUy  rush  to 

the  table . and  gobble  up  alt  t 

he  food . M 

4120  LET  a  lft=FN  f  (25)  +10 
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4-230  PRINT  RT  10,3;  INUER3E  2;"P 
ress  any  key  to  find  out";flT  7,0 
; "The  food  has  given  you  "•  pros 

E  0 

4-14-0  IF  am>25+FN  f  (5.)  THEN  PRINT 
“Indigestion!  You  don't  get  an*! 

energy  points  for  that?":  BEEF 
1,-20;  GO  TO  4-900 
4-15©  PRINT  am;”  valuable  energy 
points.  " 

4-168  LET  L  <21*  -l  <225  <rS% 

4-200  GO  TO  4.900 

4.290  rem  treasure 
4300  RESTORE  4.480 

4-320  FOR  i  =2  TO  FN  r  (5)  :  RERD  t  $ 
, am :  NEXT  i 

4-320  PRINT  RT  2 , 3;  q$  ( 51  ;  RT  2,27; 
. . You  have  t$ 

4-33©  LET  Sffl=FN  r  (ami  +5:  JLET  en=l 
Ni  (am. --'5? 

4-34-©  PRINT  "It  comes  to  the  vatu 
e  of  am  -  "treasure  points  and  h 
as  an  'EC'  factor  of  ";en 
4350  print  '"The  treasure  may  be- 
useful  to  bribe  the  evil  bees 
is  that  hide  in  these  passages." 
4-360  print  '"Do  you  want  to  carr 
y  this-  along?" 

4370  IF  INKEY$=’*n "  THEN  GO  TO  4-B 


4380  IF  INKEY*0"y"  THEN  GO  TO  4 

37© 

439©  LET  l  (23)  =  l  (231  ten  :  LET  1(2. 
01  = l  (201  +3® 

4-40©  PRINT  '"You  have  now  gained 
1(10);“  treasure  points*" 

4-420  PRINT  '"Your  EC'  factor  no 
w  adds  up  to  l (13) ; "*  Each  mov 
e  you  make  uses  up  " ' 1 (233 ; "  ene 
rgy  units." 

442©  GO  TO  490© 

4480  DRTR  "struck  gold! ",60,"R  € 

nest  of  silver", 3© , " R  sack  of  s  L 
earning  d i amends  ",  40 , "R  plat j 

nu»  sword" , 20 , “R  jar  of  rubies", 

30 

449©  REM  evi i  Vi 1 lain 
450©  RESTORE  450© 
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4510  DATR  "On  angry"/‘fl  crazy”/' 
A  fierce"/’Rn  ugiy”.."A  horrible' 
„"A  giant  ”  "A  saeliy/'fl  hungry” 
4520  FOR  i=l  TO  FN  r 18) :  READ  a* 

:  NEXT  i :  RESTORE  4530 

4530  DRTfl  "gori  Ua”/,defflon”/,dr5 
g on *' ,  "troi  l  "  /  "werewol  f  "  ,  “an dr oi  d 
"  *  n  $ 

4540  FOR  i =1  TO  FN  r (7) :  READ  t$ 

:  NEXT  i 

4550  PRINT  INK  3;  AT  2,.  5;  a.*,:  “  “  t 

$ 

4560  PRINT  INK  1' “that's  going  t 
o  rip  your  arms  off  for  waking 
him  up } ” 

4570  PRINT  INK  0; '"What  are  you 
going  to  do?" ' "fire  you  going  to: 

4560  PRINT  INK  i'11!/  fight"'"2/ 
bribe,‘'“3/  run"''” 4.-'  pray  he'll  g 
o  away” 

4590  IF  INKEY *<"i“  OR  INKEY* > “4” 
THEN  CD  TO  4590 
^c;qg  QL.  5 

4600  GO^TO  URL.  INKEY  *  *-50 +456© 
4610  PRINT  “You  have 

4612  IF  1(65  THEN  PRINT  “a  laser 

* \  > 

4614  IF  l (?)  THEN  PRINT  "an  anti 
matter  ray/“ 

4616  IF  NOT  (1(6)41(7))  THEN  PRI 
NT  "nothing/’; 

4616  PRINT  "for  a  weapon.” 

4620  LET  pr  =  (  (l  (7)  >0)  (6)  >© 

)):  IF  NOT  pr  THEN  LET  pr=RND/2 
4622  PRINT  RT  21,1; "Press  a  Key 
to  begin  the  fight”.  PRUSE  © 

4624  FOR  i =1  TO  5*(l/pr) 

4626  LET  C l =FN  f(S)-l:  BORDER  Cl 
:  PAPER  Cl:  INK  7-el:  LET  0C=U5R 
invert:  BEEP  •  05  j.  10  — FN  r(20) 
4628  IF  t  (6)  THEN  BORDER  2:  PAPE 
R  6:  BEEP  .075,30:  LET  m C =USR  in 
v  ert 

4630  IF  t <7)  THEN  BORDER  0:  PAPE 
R  7:  BEEP  .  1 ..  0 :  LET  01C=U5R  inver 

4531  LET  Ull)  =1  (11)  -2 

4632  NEXT  i  :  BORDER  5:  INK  4  :  PH 

PER  0;  BRIGHT  1:  CLS 

4634  IF  RND<pr  THEN  GO  TO  464S 


90 


4636  PRINT  RT  5,1; "YOU  LOST!  The 
";a$(3  to  3  ;  "  ";t*""has  thrown 

your  armless  body  in  the  corner 
to  join  many  others  who  had  vs 
atored  in  this  maze" 

4538  FOR  i =0  TO  -30  STEP  -1;  BEE 
P  -  5 , i :  NEXT  i 

454©  FLASH  1:  CLS  :  GO  SUB  516© 
4-642  POKE  23693,56:  PRINT  AT  12, 
2; "Do  you  want  to  try  again?" 
4.64-4  IF  INKEY$  =  "n"  THEN  CLS  :  ST 

OP 

4646  IF  INKEY$  =  ,'y"  THEN  GO  TO  6© 

4647  GO  TO  4644 

4648  PRINT  RT  5, 10; "YOU  won!" 
4650  IF  l <73  THEN  PRINT  "but  Wit 
b  the  antimatter  ray  you  tcvlda  1 
t  lose?’’:  LET  l  (7)  =1(73-1:  GO  TO 

4900 

4652  IF  1(63  THEN  PRINT  "That  W3 
s  handy  work  with  the  laser!" 

.  LET  l  te>  =t  (63  -1:  GO  TO  490© 
4654  print  "That  was  a  pretty  to 
cky  blow,” '"the  ”;a*C3  TO  3.;"  ", 

t$;  "  must  be  sick  today.” 

4656  GO  TO  490© 

4660  PRINT  "Uhat  are  you  going  t 
o  give"' a*;"  t$;  ’’?'• 

4665  PRINT  '"You  have  with  you :  “ 
:  FOR  a  =1  TO  6:  PRINT  g$(a3  AND 
l  (a  +53  '  :  NEXT  a 
4670  DIM  g$(18>:  INPUT  g$ 

4673  FOR  2  =1  TO  6:  BEEP  .1,5:  IF 
g  $  =q $  (  i  3  AND  1  (5+i  3  THEN  GO  TO 
468© 

4676  FOR  i =1  TO  6:  BEEP  .1,5:  IF 
9$=q$(i3  AND  l  (5 hi  3  THEN  GO  TO 
468© 

4678  NEXT  i:  PRINT  RT  12,0; "Sort 
y,I  didn't  understand  that  Try 
again!":  BEEP  .5,5:  PAUSE  ©:  DIM 
g  $ ( 64  3  :  PRINT  RT  12,©;g$:  GO  TO 
4670 

463©  IF  i =S  THEN  GO  TO  469© 

4682  PRINT  '"The  not  so  ”;a*(3  T 
O  3  ;  ’’  ";t$'"says  thank  you  and  l 
a  k  es  the  **  'q#(i,3  TO  i  '  "and  sudd 
enly  disappears" 

4684  LET  l  (i  +63=0:  LET  1(133=1(1 
3)  -e  Ci  3 

4686  GO  TO  490© 
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4-598  INPUT  "How  much  treasure  a r 
e  you  going  to  give  the  (t$);‘ 
?  am 

4.593  IF  a®>0  THEN  GO  TO  4700 
4-594-  PRINT  "The  is  enrage 

d  that  you  tried  to  cheat  him  an 
d  h3s“'“taKen  e ve ry thi ng , ex  cep t 

half . your  treasure." 

4-595  FOR  i  =0  TO  -98  STEP  -I:  BEE 
P  .05,1;  NEXT  i 

4-596  LET  t*l  LET  1  =  1(1©}: 

LET  m  =  l  (4-}  ;  LET  n  =  l  (5)  :  DIM  l  (I 

3) 

4-597  LET  1(135=1:  LET  1(4-5=®:  LE 
T  t  (5)  =n  :  LET  l  (10)  =1:  LET  1(11) 

=  t 

4693  GO  TO  4-900 

A700  IF  am >FN  r  (205  *1©  THEN  PRIN 
T  "The  " ; t "  accepts  your  me as l 

y . o  f faring  and  tells  you  he  wi 

1 1  be  more  ”;af  (3  TO  ) "  to  you 
next . tine.":  beep  1,10-.  go  to 

4-900 

4.702  print  "The  ts' "insulted  h 

y  what  you  have”'"of fered  .gets  m 

ore  “;a$(3  TO  )  '"and  steals  your 

«<  . 

470 4-  LET  D=FN  r  (5)  :  IF  0=5  THEN 
LET  0=6 

4-706  LET  t  (135  =1  (135  -e  (05  ;  LET  t 
Co +5+  (O  =65  5  =© 

4706  PRINT  q$(0,3  TO  5 
4709  GO  TO  4980 

4718  IF  1(85  THEN  PRINT  "You  act 
ivate  your  transporter  and  who 
o  s  h  !  You're  away*":  BEEP  1 j 50 :  G 
O  TO  6500 

4711  FOR  i =0  TO  FN  r <403 +1©  STEP 
.5:  BORDER  FN  r <75 :  BEEP  .01,1 : 
LET  l (115 =1 (11) -.5:  NEXT  i:  FOR 
i =0  TO  FN  r (505 :  BEEP  N 

EXT  i 

4714  LET  r  =2-FN  r  (3) 

4718  IF  NOT  r  THEN  GO  TO  4730 
4722  PRINT  "Not  fast  enough  '  t® 
;"'s  are  pretty  f as  t " ' "some  times 
! " ' "You  can  only  fight  now." 

4725  GO  TO  4610 

4735  PRINT  "You  made  it!  Why  are 
n't  you "' "represen t i ng  your  coon 
try  in” ' "running?" 
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4-74-0  PRINT  "finer  a  quit*  100  }j*£ 
t re  sprint  around  the  corner  yo 
u  find11 '  “yourse  L  f  back  in  the  ss 

P  l  3  C€  ** 

4745  PRINT  RT  20,0;  “fifter  you  ha 
ve  had  a  rest»press  a  key" 

475©  BEEP  .5,-50:  BEEP  .3,-4© 
4-755  IF  INKEY  *  =  **••  THEN  GO  TO  4-75 

0 

4-753  GO  TO  4-00© 

4760  FOR  1=0  TO  5:  PRPER  FN  r (7) 

:  BEEP  .1,50:  CL 5  :  BEEP  .5,-50: 
NEXT  i 

4765  PRPER  6:  INK  0:  CLS 

477©  PRINT  "It  didn't  work,  the  *‘ 

;  stilt  there?” 

4773  LET  IK  =FN  C  (10)  :  LET  t  f  113=1 
Cll) -« 

4775  PRINT  "You  wasted  ene 

rgy  units"'“trying  though.” 

473©  GO  TO  4570 

4390  PRINT  "OK,«e'll  leave  it.” 
490©  GO  SUB  8400:  REM  wai t 
492©  BEEP  1,5 

493©  BORDER  0:  PRPER  0:  INK  5:  B 

RIGHT  1:  CLS 

4940  LET  n  $ (py ,PX)  ="  " 

4958  GO  TO  23© 

500©  REM  map 

5005  IF  l ll©3  <1©  THEN  PRINT  INK 
&; fiT  0,0; "You  don't  have  enough 
treasure  to  pay  the  fee, no  stone 
4,  no  j»ap  .  "  :  BEEP  .5,-30:  GO  TO  2. 

00 

5010  BORDER  5:  BRIGHT  0:  CLS  :  P 
PINT  RT  4,9;.  INK  8 "  *  *  *  aNORTH  *  *  * 

v.  ** 

3020  IF  INKEY*  O’*”  THEN  GO  TO  58 

2© 

503©  LET  fl>X  =  ipx  -63  *  (px  >5)  +1;  LET 
sjy  as  fpy  -63  *  ipy  >53  41 
3840  IF  IRX  +10  >1143  THEN  LET  ffiX  =  t 
I*  43  -10 

3050  IF  l»y  4-10 >  l  C53  THEN  LET  »y  =  l 
i 53 -10 

506©  LET  d$=m$  (py  ,PX3  ;  LET  m$(p  y 
,  px  3  =** 

5078  FOR  l=l»y  TO  *y+10:  PRINT  114 
K  6;TRB  9;" a”; 

5030  FOR  C  -m y.  TO  GLX-tLQ 
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5090  IF  CODE  ffl  $  i  l  ,  C )  >4-6  RND  CODE 
mt  (l  J,  C)  <126  THEN  PRINT  "S”;  :  60 

TO  5120:  REM  print  door 
5100  IF  !»$  (  l  ,  C)  >  "  5  "  THEN  PRINT  F 
lhSH  l;  INK  6;"flO“;.-  GO  TO  512© 
5110  PRINT  ffi$(t,c); 

512©  NEXT  C:  PRINT'  INK  S;"*" 

513©  NEXT  L  :  PRINT  INK  €•;  TAB  -3;  *' 
S-  ^  *■  fSOUTH  *-*■**-" 

514-0  LET  l  (13)  =  L  (13)  -2:  LET  1(16 
J  as  i  (i0i  -1©:  REM  pay  $1©  fae  for 

map 

5 150  LET  *» $  fpy , px )  =d  $ 

516©  PRINT  INK  4-;  BRIGHT  1;  RT  ©, 
0;  "Energy  le  f  t  =  " ;  l  (ll)  '  "Treasure 
points=";  1(1©)  ' "You  energy  cons 
usption  per  move  is  l (13) 

5170  PRINT  INK  5; RT  17,0; "You  ar 
a  carrying-.  " 

5160  IF  L(&>  THEN  PRINT  INK  qf 
(1);  U6);"  shots  left" 

5190  IF  1(7)  THEN  PRINT  q$ (2) ; l C 
7) ; "  shots  left" 

5200  IF  l  (8)  THEN  PRINT  INK  5.:  q  $ 
(3)  ;  Life  of  **;  i  <S) 

521©  IF  1(9)  THEN  PRINT  INK  4;  q|? 

C4-) 

5215  IF  t (12)  THEN  PRINT  INK  5;" 
R  Key” 

5220  IF  NOT  <  t  ( 12)  +t  (6)  +1  (7)  4-t  (© 
) + l (9) )  THEN  PRINT  FLRSH  1; "Noth 
ing” 

5225  IF  INKEY  $<>****  THEN  GO  TO  52 

25 

5227  GO  SUB  550© 

5230  PAUSE  50©:  RETURN 

550©  IF  NOT  -31  THEN  RETURN 

5505  PRINT  "The  EXIT  is  "NORTH 

rnd  py  >gl;  “south-"  and  py<gl.; 

551©  PRINT  "UE5T "  RND  px >g2, "ER5 
T"  RND  px  <g2; "  of  here." 

3520  RETURN 
6000  REM  key 

601©  PRINT  .97  1,5;  “Ydu  have  /DIM? 
d  a  Key?" 

5020  BEEP  .75,10 

5030  IF  NOT  l (IS)  THEN  PRINT  RT 
21,3; "Do  you  want  to  pick  it  up? 

604.0  IF  1(12)  THEN  PRINT  RT  21,3 
; "Do  you  want  to  swap  keys?" 
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005®  LET  ffl$(pyjPX)  ="  *’ :  REM  spac 

i.©60  IF  IMKEY$  =  "n"  THEN  RETURN 
6070  IF  INKEY$  <  >”y  **  THEN  GO  TO  6 

050 

6075  IF  l ( 13) a  DR  NOT  l (12)  THE 
H  LET  L  (13)  =!.  (13)  +1 

6030  BORDER  2:  PAPER  4:  INK  0:  C 

L,  3 

60S©  LET  key=FN  r  15)  :  IF  Xey=X  a 

2)  THEN  GO  TO  6020 
e.025  LET  l  ( 12)  =key 

6100  BEEP  .1,3:  BEEP  .4,19:  BEEP 
.2,3:  BEEP  .5.10 

6110  PRINT  AT  10,2; "YOU  NOW  HAUE 
A  KEY  MARKED  '* t  ( 12)  '  '  ”  Guard  i 
t  closely  your  life  roay  d 

spend  on  it.** 

6120  GO  SUB  3400 

6140  BORDER  0:  PAPER  0:  INK  5:  O 

615©  RETURN 

6500  REM  transporter 

6510  LET  px  =FN  r  (1(4))  :  LET  py=F 
N  r  (  l  (5)  )  :  LET  f  =FN  r  (4) 

652©  FOR  i =0  TO  10:  LET  C l =FN  r( 

3)  —1 :  BORDER  Cl:  PAPER  7-el:  BEE 
P  .01,10-FN  r (20) :  CLS  :  NEXT  i 
653©  FOR  i =1  TO  5 

654©  LET  CUFN  r  (6)  -1:  BEEP  .1,4 

0 

555©  BORDER  Cl:  PAPER  7 -Cl;  CLS 
§560  PAUSE  20;  POKE  23623,56:  CL 

5570  NEXT  i :  BORDER  1 
6530  PRINT  AT  6,0; "You  have  now 
been  transported"  '  "to  a  differen 
t  part  of  the  maze" 

©52©  LET  l  (8)  =  t  (8)  —1 :  IF  NOT  1(8 
>  THEN  LET  l l 13) = l ( 13) -5 
6600  GO  SUB  3400:  RETURN 
7000  REM  drop  object 

7005  PAPER  6:  INK  0:  BORDER  4:  C 

LS 

7010  INPUT  ("What  do  you  want  to 
leave"  *n$;  "7  ">,s$ 

7020  IF  g$(l) =”  ”  THEN  RETURN 

7030  FOR  i =1  TO  6 

7040  IF  g$=q$  (i  )  THEN  GO  TO  7070 
7050  BEEP  .1,10-FN  r (20) :  NEXT  i 
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7060  PRINT  "So fry* I  don't  Know  w 
hat  g$;  "is  ..Try  again.":  GO  TO 
701© 

7070  IF  l(i+55  THEN  GO  TO  7090 
70S©  PRINT  "But  you  don't  have  " 
g  $ '  "T ry  again"  :  GO  TO  701© 

7090  IF  i =5  THEN  GO  TO  7140 
7100  PRINT  "OK/Say  goodbye  to  yo 
ur  ”'g$(3  TO  1 
711©  LET  l  tl3)  =t  ( 13 >  -e  f i 3 
719©  LET  l  t  i  +5)  =0 
713©  BEEP  1.,  10;  GO  TO  7190 
714-0  INPUT  "How  much  treasure  do 
you  want  toleave?  ";tr 
715©  IF  t  r  >  l  (  10j»  THEN  PRINT  "YOU 
don't  have  that  much"' “treasure 
BEEP  1,-10:  GO  TO  714-© 
716©  LET  t (131 =1 (13> -tf/5:  LET  i 
(10)  = i (10)  -tr 

717©  print  "Say  goodbye  to  tr; 

"  points  of . treasure" 

7160  IF  l (13) <=0  THEN  LET  l ( 13) - 

719©  BOROER  0:  PAPER  0:  INK  6.  C 
LS  :  RETURN 

790©  REM  de«ateriaiisers 

721©  LET  dy=py+(f=3)-tf=l) :  LET 

dx  -px  (  f  =2)  -  (  f  =4-> 

7212  IF  dy  >1(51-1  OR  dy <2  OR  dx < 
2  OR  dx>ti 4-1-1  THEN  PRINT  "Sorry 
you  can  demateria Lise  thisouter 
wall":  PAUSE  0:  RETURN 
7215  LET  ffl$(dy,dx) ="  " 

722©  FOR  i  -4-0  TO  55;  LET  C  l  =6-FN 
r  ( 8) 

723©  PAPER  Cl:  BORDER  7 -Cl;  CLS 
724-©  BEEP  .  05 ,  i  :  NEXT  i 
725©  LET  1(71=1(71-1 
7260  BEEP  .5,-2©;  RETURN 
rs>0©  REM  save  game 

7505  LET  l  (l)=py:  LET  l  (23  —px  :  L. 
ET  U3)=f 

7510  PRINT  FLASH  1; RT  16,7; “Savi 
ng  Maze  Data" 

752©  PRINT  INVERSE  1'" Filename  " 
“maze " " " ; RT  20,0; "Please  Keep  p r 
essing  a  Key  untilthe  screen  els 

jTfr  j—  ** 

7530  SAUE  "maze"  DATA  1(1.  CLS  ; 

SAUE  "maze"  DATA  m$i) 

754-0  INPUT  "Ue  r  i  f  y  7";  a  $  :  IF  a$<; 
“y"  THEN  RETURN 
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7550  PRINT  "Rewind  c  ass  e  t  t  e  ,  t  he  r> 
PLRY”  ""If  loading  error  then  t 
ype : GO  TO  7500" 

7550  UERIFY  "maze."  DRTR  It)  :  UER 
XFY  ’maze”  DATA  m*l) 

7570  RETURN 

7600  PRINT  FLRSH  1;  AT  10,9;"LO3d 
ing  Date" 

7520  PRINT  80;  FLASH  1;AT  1,4;  "-S 
tart  cassette  recorder" 

763©  LORD  "maze"  DRTR  t  U  :  LORD 
"maze”  DATA  «»  $  U 

7S40  LET  py=l (1) :  LET  px = l (2) :  L 
ET  f  =  l  (3) 

7550  CLS 

7650  RETURN 

SO©©  REM  variables 

6010  IF  NOT  set  THEN  GO  TO  6070 
802©  LET  px=2:  LET  py=px:  LET  f- 
2:  REM  player  position  in  maze 
8030  DIM  1(13):  LET  L (4) =m :  LET 

|  |  gj  y  ^ 

S040LET  i (10) =200:  REM  treasure 
8050  LET  L (13) =1 :  REM  energy  con 
sump t  j  on 

8060  LET  l  (ID  =  I  NT  (  l  (4.)  tl  (5)  /5) 
807©  LET  r  =©;  LET  re=r:  REM  repe 
a  t 

80S©  LET  g 1=0 :  LET  SW=0 
8090  REM  define  graphics 
3100  RESTORE  6250 
3110  FOR  i =1  TO  7:  RERD  C$ 

8120  FOR  e=0  TO  7:  RERD  n:  POKE 

U5R  c$«,n 

3130  NEXT  e:  NEXT  i 

814©  FOR  i =USR  "S'*  TO  USR  "S”+16 
3150  RERD  b:  POKE  i,b:  NEXT  i 
316©  LET  inver t=U5R  ”s“ 

6170  DIM  qiC6„18):  DIM  e (6) 

3160  FOR  i =1  TO  6:  RERD  a $,6;  LE 
T  q  *  (  i  )  =a  $ :  LET  e  ( i  )  =e :  NEXT  i 
3190  BORDER  @:  PRPER  0:  INK  5:  B 
RIGHT  1:  CLS 
8200  RETURN 

8250  DRTR  “a”,©,©, 3,15,12,12,12; 

0 

8260  DRTR  "b“,0,0, 126 , 224 , 96 ,  46 , 
4-3  ,  "96 

3270  DRTR  "C’M,  i,  1, 1,0,  1 , 1/0 
826©  DRTR  "d “ , 224 , 192 , 128 , 128,0, 
128, 126,0 
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3290  DRTB  •‘£'',255,129,129,129,12 
9,129,1.29,255 

3300  DfiTft  "  K  **  ,  0 , 2 , 3 , 255 , 67 ..  226 , 6 

4 , 0 

3310  DfiTfl  ”h”  ,24 ,60, 126, 60, 24, 24- 
,  24-, 24 

3320  DATA  33 , 0 , 64-  ,  6 , 24-  ,  197 , 6  ,  ©  ,  1 
26,236,255,119,35,  16,24-9,  193,16, 
24-3,201 

3330  £>«T«  "a  lass>‘”,9,“ari  antiaa 
tier  ray”, 14, "a  transporter  belt 
”,5,”a  skeleton  key”, 3, “some  tre 
3sure”,B,”a  key”,! 

84.0©  PRINT  RT  21,5;  FLASH  1;  INK 
9;  “PRESS  ' c "  TO  CONTINUE.” 

8410  IF  INKEY* < > ” C ”  THEN  GO  TO  6 

4-10 

8420  BEEP  1,10:  RETURN 
9000  REM  instructions 
9002  POKE  23609,100 

9005  INPUT  "Hullo!  Before  «»e  sta 
r  t  ,p  lease  ”  '  ”en  t  er  your  name:”;  L 
INE  n$.  IF  n $=” ”  OR  n *=”no ”  OR  r> 
*=”yes”  THEN  GO  TO  9005 
9007  IF  n  $  ( 1)  >“Z”  THEN  LET  n*(l? 
=CHR*  (CODE  n  *-32) 

9010  BORDER  1:  INK  1.  PAPER  6:  C 


L.  S 

9020  FOR  b 
9030  Pi_OT 
,  -ITS 

9040  PLOT  127, 0 : 

75 

9050  NEXT  b:  POKE  23609,50 
9060  PLOT  0,112.  DRRU  255,0 
9070  PLOT  0,70:  DRAW  255,0 


=0  TO  10 

127,175:  DRAW  b *25 -125 


DRAW  b *25 -125,1 


90S© 

PRINT 

RT  3 

'  ,0; 

3090 

OUER 

1:  INK  2 

9100 

PRINT 

TAB 

— >  .  %% 

/  y  m 

9101 

PRINT 

TAB 

7;  ”| 

9102 

5  MB 

PRINT 

i« 

TAB 

7;  “1 

9103 

PRINT 

TAB 

7;  ”1 

11 

i 

9104 

PRINT 

TAB 

7;  ”1 

9105 

PRINT 

911© 

PRINT 

TAB 

10;  ” 

9111 

PRINT 

TAB 

10;  ” 

9112 

PRINT 

TAB 

10;  ” 

9114 

PRINT 

TAB 

10;  *’ 

3115 

PRINT 

II  II 


I  s 
I 
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3120  PRINT  TfiB 

3121  PRINT  TAB 

3122  PRINT  TAB 


9123  PRINT  TAB  7; "|  f  f  If  IS 

I  I" 

9124-  PRINT  TfiB  7;  "IWV  W  W  S 
j  I" 

915©  INK  1:  OUER  ©:  BEEP  .4-, 20: 

8EEP  .5,5:  BEEP  .5,10 

9160  INPUT  “Do  You  Need  Instruct 


ions(y/n)?!1;  LINE  a$:  IF  a$="n" 
THEN  RETURN 

3170  BORDER  5:  PRPER  1:  INK  1.  B 


RIGHT  1:  CL 5 

9160  PRINT  ’TfiB  S;  FLASH  lj M'DOO 
AS  OF  DOOM “ " " ' 

319©  PRINT  “GREETINGS  to  the  BOO 
RS  OF  DOOH" '  FLASH  I: “?“;OHR$  6; 
3220  PRINT 

9230  PRINT  "You  have  co i»e  here  a 
.o  search  of  the  Ultimate  Goat  wh 
ich  lies  beyond  one  of  the  DO 

ORS  OF  DOOM  at  the  heart  of  the 
unwelcoming  Labyrinth." 

924-0  PRINT  '“You  must  journey  t h 
rough  the" '“tong  deceiving  passa 
ges  in”'"search  of  the  right  rou 
te  to  the  i  n  te  r  i  o  r  .  “  -  ' 

9250  PRINT  “Throughout  the  maze 
there  are“-"doors  Leading  to  an 
ad ja cen t "passage , and  behind  th 
ese^doors  may  Lie  DANGER, , .or  h 

9260  GO  SUB  64-00:  PRPER  0:  CLS 
9270  PRINT  "The  doors  are  locked 


and  can" '"only  be  opened  if  you 
possess  a  matching  key, which  a r 
e  littered  around  the  labyrinth. 


9260  PRINT  INUERSE  1 ' "D IRECTIONS 
INK  6 

9290  PRINT  ' "You  may  use  a  map  m 
hi ch  shows”'"the  surrounding  wa  t 
is  and  the" '"path  you  have  takers 
.It  will  a  iso show  up  any  keys  an 
d  doors ”' "nearby " 

3300  PRINT  "Each  time  you  ask  fo 
r  a  map  you  lose  1©  treasure  poi 
n  t  s  ** 

931®  GO  sue  04.00:  DOPIER  ©:  CL.S 
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9320  PRINT  TfiB  8; 


LOT  70,167: 
9330  PRINT 
R '  for  righ 
934-0  PRINT 

3rd" 

3350  PRINT 
"'"Key  ' E 


DRAW 
'  "Keys 
t  and  'B 
"Key  ' P ' 


“  'KEY' words"  :  P 
INK  4; 24,0 
'l_ '  for  left,  ' 
for  ba cK  .  “ 
to  step  fors 


"Key  '5'  to  save  gam 
to  repeat,  (if  you  co 
e  to  a  long  corrirfer? " 

3360  PRINT  INK  5 '"Each  object  y 
u  pick  up  has  its  own  Energy  Co«s 
suoption  or  'EC'  factor .This  is 
the  amount  of”'”er>ergy  used  aft 
e r  each  step." 

3370  PRINT  INK  7 ' “YOU  may  specif 

y  the  size  of  maze  to  be  used, the 

largest  maze  will  take  up  to  20 

minutes  to  producewhile  the  sisal 

Lest  will  take"  *  “'about  1-2  mi  nut 
** 


3380  PRINT  INK  5.;  "You  may  save  t 
he  mazes  for"'"futore  use." 

9390  GO  SUB  8400 
3400  RETURN 


100 
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Gold  Rush 

Your  task  in  this  game,  written  by  Neil 
Pellinacci,  is  to  carry  six  sacks  of  gold 
from  a  bank  vault  to  a  safe.  The  vault  and 
safe  are  separated  by  a  river.  The  river 
can  be  crossed  via  a  network  of  small 
dams,  which  are  built  across  it. 
Unfortunately,  the  future  of  this  link  is 
not  certain,  because  occasional  logs 
drifting  down  the  river  will  destroy  parts 
of  the  dam  system.  You  must  transfer  all 
the  sacks  to  the  safe  before  your  route  is 
cut  off. 

You  play  the  game  using  the  following 
control  keys: 


Q  -  to  move  up 
Z  -  to  move  down 
I  -  to  move  left 
P  -  to  move  right 


Your  current  task  is  shown  by  the  color  of 
your  man.  White  indicates  that  you  have  to 
pick  up  a  sack,  and  yellow  shows  you  are 
carrying  a  sack.  To  pick  up  a  sack,  you 
just  move  onto  the  same  square  as  it.  You 
put  it  in  the  safe  by  moving  onto  the 
safe.  In  either  case,  a  beep  will  sound, 
and  the  man  will  change  color.  You  have 
three  men  per  game,  and  the  number  left  is 
shown  at  the  top  of  the  screen. 
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A  log  will  remove  any  section  of  dam  in 
its  path.  However,  sections  above  and 
below  are  also  damaged,  and  if  you  move 
off  one  of  these,  and  into  part  of  the 
river  where  a  log  has  been,  you  will  lose 
one  life.  This  is  the  only  way  you  can 
lose  a  life,  so  be  very  careful  after  the 
first  few  logs  have  appeared. 

When  all  six  sacks  have  been  put  in  the 
safe,  you  move  onto  the  next  level.  On 
this  level,  there  are  two  dam  formations, 
and  these  alternate.  As  the  game 
progresses,  the  number  of  logs  increases, 
until  finally  you'll  find  the  game  is 
virtually  impossible. 

You'll  see  at  this  point  the  dam  is  almost 
nonexistent,  and  you'll  have  to  resort  to 
new  tricks.  You  can  'hop'  onto  a  log 
immediately  above  or  below.  It  is 
difficult  at  first,  but  not  impossible. 
Remember,  you  don't  move  with  the  log;  you 
are  just  using  it  as  a  piece  of  dam.  If 
you  are  very  careful,  you  can  even  move 
right  and  left  using  the  logs. 

The  end  of  the  game  is  the  hardest  part, 
and  it  is  the  main  reason  for  getting  as 
high  a  score  as  you  can  before  the  dam  is 
destroyed. 

Scoring  is  simple.  You  get  100  points  for 
going  from  the  safe  to  the  bank  vault  and 
another  100  for  successfully  bringing  back 
a  sack  of  gold.  If  you  lose  a  life  while 
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carrying  the  sack,  you  do  not  score. 
Neil's  highest  score  is  around  3300,  which 
gives  you  a  target  to  shoot  for. 

The  program  is  written  mainly  in  BASIC, 
but  it  uses  a  machine  code  routine  located 
at  32530,  which  moves  the  logs  right  and 
left  across  the  screen,  stopping  them 
after  a  collision  with  a  dam  wall.  The 
data  for  this  machine  code  is  held  in  the 
last  two  lines  of  the  program. 

Here's  the  key  to  the  user-defined 
graphics: 

R  =  £ 

b  =  e 

c  =  £ 


This  is  the  program's  structure: 


100: 

1000  -  1030: 
1040  -  1045: 
1050  -  1100: 

1510  -  1560: 
1600  -  1630: 
1700  -  1740: 
1B00  -  1B20: 
2000  -  2100: 
6000  -  6650: 
7000  -  7100: 
8000  -  8100: 
9000  -  9120: 
9200  -  9310: 


subroutine  to  print  score 

game  preparation 

initialisation  for  each  game 

initialisation  for  each  Level 

of  the  game 

main  loop 

detects  collisions 

end  of  one  level 

lose  one  man  routine 

game  over  routine 

draw  dams  across  river 

draw  river  and  the  banks 

title  page  and  instructions 

POKE  user  graphics  characters 

POKE  machine  code  into  memory 
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And  here's  the  listing: 


10  CLEAR  32529:  RRNDQH1ZE  :  GO 
to  100© 

93  REM  SCORE 

100  PRINT  ST  S.Ii-LEN  SIPS  S;  I 
NX  t;  PAPER  2;  BRIGHT  i;s.  retur 
N 

isee  rem  setup 

ISIS  BORDER  2:  PAPER  4 :  CL5  :  GO 
3  O  S  3  (B  IS-  '0 

less  PRINT  AT  0,0;  INK  7.  PAPER 
3;  "SCORE  BRIGHT  i;  "SSfeSS”,  5R 


jr~~  %vj 


OX 


.  "3' 


BR 


BRIGHT  i; ”0 


IGH  i  0; 

lUri  )  S;  ”  H I  —SCORE 
©©0©” 

103©  GET  HS=© 

104-©  go  sub  see© print  at  @<b; 

PAPER  2;  INK  7;  BRIGHT  i  ;  ■*30000" 
.  AT  ©  .  IS ;  *'3” 

104-s  Let'  mm=0;  get  hen =3 get  s  = 

0:  LET  RN=.B92 

1050  LET  SK=0:  LET  L-2;  LET  0=23 
.  LET  3=7 

1130  GO  SUB  7000 :  GO  SUB  0000 

1503  REM  LOOP 

1513  LET  L 1 =L ;  LET  C 1 =C 

151?  LET  R$=1HKEY$:  IF  A$  =  ""  THE 

N  GO  TO  1555 

152©  LET  L=L+lfi$="2”3 -iR|="Q") 
153©  LET  C=C-~  ms="P”!  -  IAS  =  ”1”  ) 
154-3  LET  fiT=flTTR  SL,C?  :  IF  AT  <  >2 
4-  THEN  GO  TO  !S©0 
154-5  BEEP  .  ©325 . 13 

1553  PRINT  AT  LI. Cl;  PAPER  3;  IN 
K  3;"  ** ; AT  L. c;  INK  g;  paper  3;” 
*  “ 

1555  IF  RND  > RN  THEN  PRINT  RT  7*1 
NT  (RNDF9)  .33;  INK  ©:  PAPER  3;  " 
LET  RNLrN-„30©5 

1553  LET  2-USR  32530;  GO  TO  1513 
1503  IF  AT =30  THEN  IF  G=7  THEM  L 
ET  G=S:  BEEP  .1.23:  LET  S=S+100: 

GO  SUB  100:  LET  5K=5K+1:  GO  TO 
1550 

1S13  IF  AT  =31  THEM  IF  >3=5  THEM  B 
EEP  .1,40:  LET  G=7  .  LET  S “5+100 : 

GO  SUB  100:  IF  SK=S  THEN  GO  TO 
173© 

1523  IF  AT =45  THEN  50  TO  1S03 
1625  IF  AT  =©  THEN  GO  TO  1545 
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1530  LET  L=L1 ;  LET  C=C1:  GO  TO  X 
56© 

170©  FOR  R=-l©  TO  a©  STEP  5:  -  BEE 
P  .  1 ,  R  :  BEEP  .  1 ,  R  -3  ;  NEXT  ft 
171©  FOR  fi=15  TO  -1©  STEP  -5:  BE 
EP  .  1,«:  BEEP  . l.R-3:  NEXT  H.  BE 
EP  . 1 • —15 

1720  FOr'~R  =  1  TO  21:  PRINT  hT  R.0 
;  PRPER  fl/S; " 

“  :  NEXT  R 

1730  BEEP  .1,20;  BEEP  .1,25:  FOR 
«  =  1  TO  21;  PRINT  RT  ft,©;  PRPER 
3 ;  •* 

" :  NEXT  R 
174-0  GO  TQ  1050 

1S00  FOR  R  =  1S  TO  -25  STEP  -4-  :  PR 
XNT  RT  l_,C;  PRPER  5;  INK  ©;  **£”;» 
T  E.C;  PRPER  5;  XNK  5;"  ":  BEEP 

.01 . R :  NEXT  fi 

1B@5  PRINT  RT  El, Cl;  PRPER  3;  IN 
K  0 ;  " 

161©  LET  MENaHEN— 1:  PR  II’ FT  RT  0,1 
5;  PRPER  2;  INK  7;  BRIGHT  1, HEN 
1815  IF  NEN=0  THEN  GO  TO  20©0 
1817  IF  5K=6  THEN  GO  TO  17SS 
162©  LET  L=2:  LET  0=23 :  LET  G=7: 

*30  TO  150Q 
2000-  REH  SRHE  OUER 

2©i©  FOR  fi=0  TO  7:  FOR  B=1  TO  21 
:  PRINT  RT  B,0;  PRPER  R; 

“ :  NEXT 

B :  NEXT  R 

202©  FOR  R=2  TO  IS.  BEEP  .1.3;  B 
EEP  .1.6:  SEEP  .1.13;  NEXT  ft 
2030  IF  S  > HS  THEN  LET  HS=5  :  PR IN 
T  RT  S, 32 -LEM  STR$  HS;  PRPER  2; 
INK  7;  BRIGHT  1.1  H3 ;  BEeP  .1,2:  B 
EEP  . 2 . IS 

2035  FOR  R=20  TO  2  STEP  -1:  PR IN 
T  RT  R .©  ;  BRIGHT  1.  PRPER  PNG  F7; 

XNK  G, *  GRME  OUER  SRNE  DUES  Gfin 
E  OUER'  ” :  NEXT  R 

204-©  FOR  R=©  TO  7:  BORDER  R:  SEE 
P  .2,7— R:  NEXT  R;  FOR  R~7  TO  *3  S 
TEP  -1;  BORDER  fl:  BEEP  .2,7-fi-l: 
NEXT  R 

21@©  GO  TO  104-© 

5000  STOP 

600©  REM  BRIDGES 

601©  IF  HH-S  THEN  GO  TO  S680 
602©  LET  MM  =0 
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b858 

PhPER 

3: 

INK  €?:  PRINT  RT 

7  ^ 

O  ;  " 

;  R 

T*  -1  O  -  *  ’  - - 

£  5*  ,1  l 

PRINT 

RT 

S.,  a;  4t  ~ ;  RT  8,12 

-  St 

-  ;  RT 

15;  M 

u 

6078 

PRINT 

RT 

a  ,  9;  m*  **;  rt  a 

,  15 

«  *  « 

*  * 

“ ;  RT 

1© 

..  RT  1©  ., 

17; 

5880 

PRINT 

RT 

1I»9;  "  '\;RT  xx,. 

12.; 

~;bt  12,5, " 

;  R  t 

xa , 

14- ;  " 

;  fTT  X2  %  22 ; 

8898 

PRINT 

RT 

‘  X3*e.*  *  s,;«t  x3 

,  14- 

•  s  * 

4 

" ;  rt  is  *  a 

1 ;  " 

610© 

PRINT 

RT 

X4-  ,  3  :  " 

R 

T  X4*  «  XS  :  **  ** ;  RT  15,9:  " 

RT  15.1S:" 

5580  RETURN 

6608  PRPER  3  :  INK  PRINT  RT  T  .* 

is;  “  ' ;  RT  7,20;  "  X  ;BT  " 

it 


65 IS  PR XfCT  RT  S.I3;  "  RT  3, 12;" 

** RT  *3 . 16;  ••  ** ;  RT  3 ,  se ;  ”  ' ;  R 

T  10 , 1©  ,  "  ”  ;  RT  10.13;  “  "  ;  RT  10  ..  1 

;  RT  10.20;'* 

662©  PRINT  RT  11.1©;"  " ;  RT 

11.23;  ”  " ;  RT  12  ..  1©;  "  "  ;  RT  12  ..  1 

6 ;  ” ' 

663©  PRINT  RT  13..  3;"  " ;  RT  13,1 

&;  “  " ;  RT  13,2©.;"  ";RT  14-,S;  " 

"  ;  RT  14- .  2S ;  ” 

664-e  PRINT  RT  3.5,3;"  " ;  RT  15  ,1 


6650  LET  MM  =  I;  RETURN 
7SQ8  REM  SCREEN 

701©  FOR  R=1  TO  SI:  PRINT  RT  R,@ 
;  PAPER  4- ;  " 

" :  NEXT  R 

7015  FOR  R=6  TO  16:  PRINT  RT  R ,  0 
;  PAPER  5;  INK  0; " 

"  :  NEXT  A 

702©  INK  O;  PAPER  3 :  FOR  R=1  TO 
3:  PRINT  RT  R.23."  :  NEXT  R 

703©  PRINT  AT  2.3: “ 

•* ;  RT  3 . 3;  "  “  ;  RT  3 . 16;  "  “;RT  4-  ,  S 

"  ;  RT  4.,  IS;" 

704-0  PRINT  RT  5,13;"  ",  RT  5,13;" 

” ; RT  5.21;"  " ; RT  6.21;" 

7@5@  PRINT’  RT  16 , 1®;  "  " ; RT  16 , 16 


7S6S  PRINT  RT . 17 , 3 ; " 

RT  16, 13; ”  „  ” ; RT  13,2: 

T  2©  ,  14. ;  " 


j 

;  R 
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7070  FDR  3=1S  TO  21 :  PRUITT  RT  3  , 
S ;  "  ** ;  NEXT  R 

7086  FOR  R=IS  TO  HI:  PRINT  RT  R> 
s;  INK  6 ;  :  NEXT  R:  PRINT  ft T 

2.25;  INK  7;  “IS" 

Ties  RETURN 

see©  REM  TITLE  PfiGE 

sees  BORDER  3 

8© IS  FOR  ft-1  TO  SI;  PRINT  RT  R,® 
;  PRPER  6;  ** 

“ ;  NEXT  a 

30 12  DIM  I  iS)  :  FOR  3  =  1  TO  S:  LET 
I(R)=S-I:  NEXT  R 

8013  FOR  R-L  TO  ©:  LET  TI=IM7  <R 
ND*S)  *3.  :  LET  PR  =  If.9)  :  LET  I  CRl  =1 
CIX) ;  LET  I-II) =fiS:  NEXT  R 
8015  GO  TO  8030 

8018  FOR  R=I  TO  B:  INK  ICRS:  OOR 
DER  ICR);  PRINT  RT  4- ..  7; 

sass*PRINT  RT  6  . 7;  '*  MM3USS3SSX3XE& 

MMSSU" 

S0SS  PRINT  RT  5.7;  ;  RT  5 . 24..-; 

**  :  BEEP  .  4.  .  I  CR)  +1© 

8024  IF  INKEY  $0"“  THEN  BORDER  2 
:  RETURN 

8026  NEXT  R:  GO  TO  8615 

8030  PRINT  RT  10.10;  PRPER  S ;  I» 

K  6;  BRIGHT  1;"  GOLD  RUSH  ” 

S04-0  INK  0:  PRPER  B:  PRINT  RT  12 
f  12;  “CONTROLS'* :  PLOT  6,75:  DRRU 
95..©;  PLOT  255,75;  DRRU  -SB  .  0 
3050  INK  1;  PRINT  RT  14 

OP  ,  P  i  15  ,  ^ .........  Ou 

UN” 

305©  PRINT  RT  16.9;  "I.  .......  .LE 

FT“;RT  17.9.;  "P.  .I....  .RIGHT" 

S©7©  PRPER  5:  INK  ©;  PLOT  © S4  : 
DRRU  253 , © 

80S©  PRINT  ST  1S.6;  PRPER  4-.;  INK 
7 ;  BRIGHT  I ; "PRESS  SNY  KEY  TO  P 
LRY  ” 

B0Q®  PRINT  RT  21..®.;  PRPER  2;  INK 
7;  "Ori  t  cars  fey  Neil  Pe  I.  linicci 
1983" 

SIS©  GO  TO  8816 
9300  REM  USD 
0005  RESTORE  3106 

3©i©  FOR  R=USR  ”R”  TO  USR  ”R“+23 
:  RESD  B;  POKE  R,B;  NEXT  R 
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sxes  dsts  e  *  xss .  &© ,  S4  *  &e 12s  .=  255 
-•  3.2S 

3X10  BRflTR  <s&o3,  IS'Sf  ,  ,  i&^ji  I'iS*  /  >  Xci 

9 , 255  .  102. 

Si2©  DRTfi  ie,ss, is, 124, ib,4©,bb, 

SB 

9200  REM  MCODE 

921©  FOR  R  -©  TO  47;  RERD  B;  POKE 
32530  *R  ,  B  :  NEXT  R 
922©  RETURN 

9300  DRTR  33 ,  192 , 88,6,11 , 14,31,3 
5 , 126  ,  254  .©.32.13*34.  43  .  43  ,  123 , 2 
34,24 

93i©  DRTR  32,4, 34  , 43 , 24 .2,34.0,3 

S',  13 , 32 , 232 , 33 . 13 , 227*  ,  33  *  192 , 66  , 
17, 32,©, 3, 11,54,45,25, 13,231,201 
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Tarantula 


In  Malcolm  Young's  great  program  TARANTULA 
you  are  in  a  dark  pit  about  the  size  of  a 
football  field,  fighting  for  your  life 
against  dreaded  tarantula  spiders. 


The  tarantulas  slide  down  the  sides  of  the 
pit  looking  for  food,  and  human  beings  fit 
into  the  category  of  food.  You're  equipped 
with  a  torch  and  a  laser,  and  you  move 
around  the  pit  in  a  fairly  flimsy  tank. 


Instructions  are  within  the  program,  and 
you'll  find  you'll  quickly  work  out  how  to 
play  it  once  you  get  the  program  up  and 
running . 


B 
J 

5  D 

IM  q  fSJ 

©  PRINT  "Please  wait  Just  a  is 
OJeent,"  ;  GO  SUB  8615;  REM  define 
chara  cters 
I©  go  SUB  9000 

30  BORDER  5;  PRPER  0:  INK  7;  C 

L5 

30  PRINT  RT  y,x; t  $ 

35  PRINT  INK  0;  PRPER  5;  RT  31.. 
3;  "SCORE  =  *' ;  score;  RT  21,  12;  "SPIDE 
RSs";nbj  "  LIUES=”;  lives 
4.0  L.ET  a  =.X  :  LET  b=y 
50  LET  i S= INKEY $ 

60  GO  TO  OR  i $>" 8“ i *20 

4-7© 

70  SEEP  .05,0:  GO  SUB  URL  i$*I 
000 

S©  PRINT  RT  b ,  a “  '*  J  BRIGHT  1; 

RT  y , x ;  INK  rk;T$ 

9©  GO  SUB  lRND<lev) *100+100 
10©  GO  TO  (d$ cy +l,x+l>  ="M") *3S© 
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EH  graphic  characters:  REM 

=*  C=*  E=*s*  F=«  G -A  H=k 


P*  C  151 
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110  LET  cn  =  cn  *  ( cn  <n )  +1 
12©  GO  TO  £n  >©}  *05+4-0 
125  IF  NOT  S  (crijl)  THEN  GO  TO  £ 
n  <15  *70  +4-© 

130  LET  SX=S(cn,l):  LET  sy=s(cn 

,  25 

14-0  LET  d$!sy,sx)=“  " 

150  LET  sy =sy + (sy <y +1) - (sy >y +15 
:  LET  Stcn, 23 =sy 
160  LET  sx=sx  +  £sx<x+l)-£sx>x+l) 
LET  s  (cn..  1)  =S X 
IT©  LET  d$(sy,sx) 

180  GO  TO  40 
£©@  REM  new  tarantula 
210  IF  n  =15  THEN  LET  tev=.©5:  R 
STURM 

220  LET  n=n+l:  LET  nb=nb+l 
=  30  LET  s  X  =S  (n,i!  :  LET  s  y  =s  (lljS 

I 

240  LET  d$(sy  ,SX) 

250  LET  C=INT  (RND*6) +2 
260  PRINT  BRIGHT  1;  INK  c;RT  sy 
-1,SX-1.;  ;  CHR*  3;  .•  BEEP  ,4,1.- 

PR I  NT  ;  ”  ” 

270  PRINT  INK  ©.;  PRPER  5;  RT  21, 
2; “SCORE =”; SCORE; RT  21, 12; "5PIDE 
RS  =  “;  nb;  ”  LIUES=”;  LIUES 

260  RETURN 

500  PRINT  PRPER  7;  BRIGHT  1;  FL 
RSH  l;  INK  2; RT  l0,5;”arrghJ !  T 
HE Y  GOT  YOU.”:  LET  t i V e S = l i VC S - 1 
51©  FOR  t=l  TO  n:  IF  S  ( t  ,  li  =X  +1 
RND  s  «t,2)  =y+l  THEN  GO  TO  53© 
52©  NEXT  t :  STOP 

S3©  LET  d$(Sit,2),S(t,l)5=''  ” 

54©  LET  s(t,l)*0:  LET  nb=nb-l 
55©  FOR  t=l  TO  10:  PRINT  INK  2; 
RT  y  ,  X  ;  **» **  ;  CHR  $  ©;  :  BEEP  .  25..  1 : 
PRINT  "J*S"  :  BEEP  .25,0:  NEXT  t 
550  PRPER  ©:  INK  7;  FLRSH  0:  CL 
3 

555  IF  n  =15  RND  nb=©  THEN  GO  5U 
2  250 

57©  PRINT  INK  0;  PRPER  5; RT  21, 
2;  ** SCORE  =  ”;  SCORE;  RT  21,12;  ”SPIDE 
HS=“; nb; ”  LIUES=" ; LIUES 
575  LET  rK=rk+lrk<7) 

530  IF  lives  THEN  RETURN 

S9©  IF  score <q £5)  THEN  GO  TO  64 
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60©  INPUT  PAPER  5;  INK  Ij fiT  ©,© 
;  ("You  have  made  the  "j  FLASH  I, 
“TOP  FIUE";  FLASH  0'  PAPER  6;  "PI 
ease  enter  your  name.  " )  LINE  p 
s 

62®  FOR  r=5  TO  1  STEP  -2:  BEEP 
.  X  ,  r  :  IF  score  >q  CD  THEN  NEXT  r 
620  FOR  g=5  TO  r +2  STEP  -1:  BEE 
P  .1,9:  LET  q  <g>  =q  fg-1)  ;  LET  W*f 
g) =w${g-l) :  NEXT  g 
63©  LET  q(g)=SCOre:  LET  «$(g) sp 

s 

64-0  BORDER  3:  PAPER  5:  INK  2:  C 

LS 

65©  PRINT  AT  3, 2; "Today  s  Champ 

“ 660  FOR ' r= 1  TO  5 :  BEEP  . 5 , r 
67©  PRINT  AT  7  +  r,4-J  FLASH'  Cw$Cr 
)=p$  AND  score  =q (r));»$(r);q(r) : 
NEXT  r 

680  PRINT  AT  IB, 3;  FLASH  1;  INK 
0; "DO  YOU  WANT  TO  PLAY  AGAIN?": 
PAUSE  0 

690  IF  IHKEY$="n"  THEN  STOP 
695  GO  TO  I© 

700  REM  promote  rank 

710  BORDER  2:  PAPER  6.  INK  1:  C 

LS 

720  PRINT  AT  3 , 7; "CONGRATULATIO 
NS"' ‘TAB  1; “You  have  kilted  ";sc 
ors/10; “  tarantulas" 

73©  PRINT  'TAB  5; "You  have  now 
been  " 

■74.0  LET  fltsft-  3 

750  PRINT  'TAB  3, "promoted  to  t 
he  ";rk.;"th"  AND  rk>3.;"rd"  AND  r 
K=3;"nd"  AND  rk=2j”st”  AND  rk=X; 
"  RANK" 

760  RESTORE  8660:  FOR  »=I  TO  25 
:  READ  n :  BEEP  . 2 , n :  NEXT  m 
770  PRINT  'TAB  2; "You  will  now 
change  tanks  to" 

780  PRINT  TAB  5; "signify  your  n 
s#  rank " 

79©  PRINT  '"You  now  control  the 

II  » 

800  FOR  C=S  TO  rk  STEP  -I:  READ 
C  $ :  NEXT  C 

610  PRINT  BRIGHT  X;  PAPER  rk;  I 
NK  9‘  c 

62©' PRINT  “  tank." 
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330  DIM  d$  (22/32!  :  LET  £=7:  LET 
r  sss  S3  :  LET  n  =0 :  LET  nb=Q 
34©  GO  SUB  9250:  PRINT  RT  20,10 
; "press  a  Hey”;  PfiUSE  5©0 
35©  BORDER  5:  PAPER  0:  INK  rK: 
CL  5 

560  LET  P  =0 :  RETURN 
100©  LET  UD*  (T4sb*'IJ**’J  —  tT ) 
101©  LET  HD=tT$="ff”)  -(T$  =  ,,®‘*) 
1020  LET  U=Y+1:  LET  H=X+1:  LET  v 

th  =1 

1025  PAPER  5;  INK  0: 

103©  GO  TO  PBS  Vd  *110+l©4-0 
IS40  LET  dt=ts*hd) 

1050  LET  d=htdt:  LET  d=d  OR  fd«:l 
.j  :  LET  d  —  d  —  { d  > 32 )  $  (d  -32 ) 

107©  FOR  t=J?f.bd  TO  d  STEP  fed 
103©  LET  Ut=V-«th  OR  V  -ttf  th  <  1 
1©90  LET  11  = (V+Wth) - (V+Wth >21) * t 
V  -Hiith  -21) 

1100  PRINT  RT  ul-l,t-Ld$(ui,U; 
CHR$  S.;  ;  IF  Ul>l  THEN  PRINT  OUER 
1;  "T"  RND  hd=l;  “T’  RND  hd  =-i 
1110  FOR  W=U  l+l  TO  U-l:  PRINT  F 
LRSH  t  d  $  (  W  ..  t  )  <  >  **  "  )  RT  u*  -1 ,  t  - 1,’  d 

3  is,  t)  ;  NEXT  W 
1120  PRINT  RT 

CHR$  :  IF  U<21  THEN  PRINT  QUE 
R  l; "k”  RND  hd=l; "i"  RND  hd=-l 
1130  LET  (Kth=wth+1;  NEXT  t 
1140  GO  TQ  1230 
1150  LET  dt=(s*vd) 

1130  LET  d=v+dt:  LET  d=d  OR  fd<l 
)  :  LET  d=d-(d>21)  *id-21) 

117©  FOR  t=V+Vd  TO  d  STEP  Vd 
113©  LET  t  t  =  th  —Ilf  th)  OR  (h-«th<l) 
1130  LET  U  l  =  (h  +W  th)  —  t  th  -f-te«  th  -32)  * 
th  +W  th  >32)  ) 

1200  PRINT  RT  t -1 , l t -1; d$ (t , l l  T 

O  Ul)  : 

1202  IF  ll>l  THEN  PRINT  OUER  1.;  R 
T  t  -1 ,  t  l  -1;  **F**  AND  Vd=l;  RND 

v-  d  =  - 1 

1205  IF  ul<32  THEN  PRINT  OUER  Ij. 
RT  "1"  RND  vd=l;  "J"  RND 

V  d  =  - 1 

1210  LET  w  th  =W  th  +1 
122©  NEXT  t 

1230  BEEP  -2,5:  PRPER  0:  INK  7: 
C-LS  :  PRINT  RT  y,x.;  tf: 
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124-0  PRINT  INK  ©;  PAPER  5 ,  RT  21, 

3,  " SCORE  =  score.;  RT  21..  12;  "5PIDE 

R5  =  " ,;nb;  **  LIUES=";  lives 

1250  LET  S  =S -RND/3 :  RETURN 

2000  LET  UD=  =  -  (T$  =  ''A''}  :  L 

ET  HD=  iT$  =  ”JF'}  -  (T 

2010  LET  U=Y  +  1:  LET  H=X+1 

202©  FOR  T=1  TO  R 

2025  LET  U=U+UD:  LET  H=H+HD 

2©30  LET  U=U  +  (U  <1.1  -  CU>2i:»  :  LET  H 

=H  + (H  <1>  - f H >32J 

2035  BEEP  .05,10 

204.0-  PRINT  RT 

2050  GO  TO  fD$(U,H><>“  “>  *20-«-20f- 

2060  PRINT  INK  0; RT  U-i  ,  H-l;  **■"  : 
NEXT  T 

a®70  LET  }-  =r  -  ir  >2J  /10:  RETURN 
2©80  FOR  T=0  TO  7:  BEEP  . 1 , t :  PR 
INT  INK  t;RT  U^“;CHR$  S; 

;  BEEP  .  1  ,  t  +7 :  PRINT  INK  7- 1  ; 

; CHR$  s; :  BEEP  . l,t-7:  NEXT  T 
2020  LET  SCORE =SCORE +10:  LET  S=S 
+RN£>x4- ;  LET  r  =INT  f  S  .-'1 .5)  +1 
2100  FOR  t=l  TO  n:  IF  v=Slt,2>  A 
ND  h=S  «t,i)  THEN  GO  TO  2120 
2110  NEXT  T:  STOP 

2120  LET  s<t,l>=0:  LET  n  b=n  fc-1 
2130  LET  d$tv,h>="  " 

214-0  PRINT  INK  0;  PAPER  5 ;  AT  21, 
2;  ’SCORE=”; SCORE; AT  21, 12; "SPIDE 
RS=";nb; "  LIUES="; LIUES 
2150  LET  I e v  =  L e v  +0 .01*1  lev (.2) 
2160  LET  p=p+l:  IF  p  =15  THEN  GO 
TO  70S 

2170  IF  n  =15  ANt>  nfa=0  THEN  PRINT 
BRIGHT  1;  PAPER  4;  INK  0.AT  15. 
3;  "Please  wait  2  seconds  "for  the 
next  wave.":  GO  SUB  2250 
2190  RETURN 
3000  LET  T*=“«" 

501©  LET  X=X-<X>0) 

502©  RETURN 
§000  LET  T$  =  "IJ»" 

3010  LET  Y=Y+(Y<20) 

5020  RETURN 
700©  LET  T$="A" 

7010  LET  Y  =Y —  <Y  >©) 

7B2©  RETURN 
3000  LET  T $="»" 

501©  LET  X=X+ (X  <31) 

S©2©  RETURN 
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§500  REM  DEFINE  CHARACTERS 
§510  DATA  66..  9©..  126,60..  136 .153 ,5 

fc>  j  3S 

652©  DATA  129,  155,  126,6©,  126..  15S 
SSS’©  '  DATA  ©  ,  126 , 6©  ,  55 , 55 , 6©  ,  126  , 


§§4-©  DATA  16, 16, 14-6,254-  ,  206, 254-, 
y  i  0 

S5ft  2^4-,  25 4- ,230,254-,  14- 

?S80  DRTR  120.,  60  /  230 , 230 , 00  ,  IS 

=5^0 

C5t^70  DfiTR  1/3/7,15/31,63,  127,255 
?5ft  **TA  126,  122,224  1 240,24.3:1.5 

659©  DATA  255,127,63,31,15,7,3, X 

f  92?12S  355 ' 554 ' 252 ' 248  •'  240  -  2S 

661©  DATA  0,  0,0,24-,  24- .  ©  ,  ©  .0 

3615  RESTORE 

6620  FDR  d  =97  TO  107 

6625  FDR  e =0  TO  7 

3630  READ  n:  POKE  U5R  CHR$  d  +e  ,  f> 
3S-*0  HE XT  E .  HE XT  3 
'365©  RETURN 

B660  DATA  0, -1, -2, -1, 1, 1, 1,©, ©, © 

,  1,1,  1,1,0  ,  -2 ,0,  1,1,  1,0,  -1,1,0,  — 

3670  DATA  "YELLOU" , "CYAN" , "GREEN 
**  ,  "MAGENTA”,  "RED"  ,  "BLUE "  ,  "BLACK. 
9000  REM  HEADINGS 

9010  RANDOMIZE  RND *65535  M 

9020  LET  H*="ji  M  &  ft  &  M  &  <*»  # 

tgj  Uf  iMt  W  Ui  W  Ult 

■JSS'  tflri  V7  /*?  _  _  __ 

9030  INK  1:  PAPER  5:  BORDER  1.  G 


PRINT  H$ (2  TO 
FOR  X  =1  TO  11: 
31;  "«*“  :  NEXT 
PRINT  AT  21,0, 
PRINT  AT  10,10 
l; "TARANTULA" 
LET  m$="Yo u  ar 
ze  o 
fo  r 

■nst  the  dreaded  ta 
tarantulas  slide  do 
f  the  pit  in  search 
lust  fight  off  thes 
as ts  if  you  value  y 


y  V34-0 
9050 
;  TAB 
9060 
S©70 
LASH 
3060 

it  about  the  s i 
field  fighting 


31)  ,  AT  0,0.; 

PRINT  OUER  1 
X 

H$  f  TO  32) 

;  BRIGHT  1;  F 

e  in  a  dark  p 
/  a  football 
your  li f e  aga 
ran  t  u  las .The 
wn  the  side  o 
of  food, you 
e  ravenous  be 
our  life. " 
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3©90  LET  m $=»$  +  ’*  You  are  equiped 
with  only  a  torch, a  laser  and  y 
ou  wove  around  in  a  lightly  armo 
‘-red  tank  which  is  no  watch  for 
the  crushing  Jaws  of  the  tar ant u 
las.” 

3100  LET  w$=m$+"  Your  weapons  ru 
ft  on  tarantula  Juice  and  if  they 
don't  get  enough  they  be<?in  to 
wear  down  and  their  range  slowly 
decreases 
■33.10  LET 

"  +ffl  £  +" 

*  • 


3120  PRINT  INK  0;  PRPER  6;RT  IS. 
1; "PRESS  'e'  TO  END  INSTRUCTIONS 
-  Y  -9T  20,1;  "or  PRESS  RNY  KEY  TO 
SPEED  UP.  " 

3125  PAUSE  500 

*8P)£KiUi\i.T90L?}Jft-a7!  PR1NT 

3150  PAUSE  10;  NEXT  L 
3 160^ BORDER  4-:  PRPER  5;  BRIGHT  & 

3170  PRINT  RT  5,2; "USE  KEYS  5  TO 
•5  TO  HOUE  YOUR  TANK  .  "  '  *  “USE 

KEY  ' 1 '  TO  LIGHT  YOUR  TORCH . ’U 

SE  KEY  '  2  '  TO  FIRE." 

91S0  DIM  d$(21,32):  DIM  S  (15..2J 
9130  LET  S=7:  LET  r=s/i.5+l 
920©  LET  X  = INT  (RND*3S)  :  LET  y*X 
NT  (RND*21> 

9210  LET  SCOre=0:  LET  lives =3:  L 


:T  nb=0 
*220  LET 
*230  LET 
324©  LET 


let  ti=-r 


LET  p=0 
INPUT  “ 
■e  ready”. 


Press 

r  $ :  RE 


r  K.  =7 

cn  =n 
lev-. 05 : 

324-5  GO  SUB  9250 : 

ENTER  when  you  ar 
TURN  „ 

111!  LET  SX=INT  <RND|32>+1:  LET 

!||iNIFtS^0*l  THEN  LET  s 
~  LET  S(Z,2) =20*tRND>.5) 
qpge  IF  O>0.5  THEN  LET  S 
•LET  s(Z,13=31|(RND> 

9290  NEXT  Z :  LET  n =n b 
930©  RETURN 


.5) 


iz,  li 
4-1 

(z  ,  2) 

4- 1 


=  £  K 


=sy 
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Jungle  Job 


This  is  a  two-stage  challenge  from  Andrew 
Sweet  land  and  Martin  Jones.  In  the  first 
stage,  you  have  to  guide  your  canoe  down  a 
fast-flowing  river.  There  are  a  number  of 
rocks  blocking  your  way,  and  you  must 
avoid  them.  If  you  hit  a  rock,  a  man- 
eating  fish  lor  a  faint  computer  version 
of  one]  will  leap  out  of  the  water  to 
consume  you. 


In  the  second  stage,  you'll  find  yourself 
on  a  dirt  roadway  like  this: 


♦tfff tfffffffffff ff 

■  .  -  f  f$  ‘  “it 

-  i  t 

itttttttfttttttttt  •  t  t 

t  f  f  f  t  f  f i ft  5r  f  f  fi if t  *  t  it  t 

ttttitttttttttitttt  •  t  it  t 

tttttttttittttitti  •  t  it  t 

tit  •  1  ft  * 

it  5= . -ff  ff  * 


* 
i 
t 
t 
t 
t 
t 

t  tttt  ittt 

^  ^  3?  ^  ^ 

tf  fiftifttfltit 

tit  titttttiitiiiit 

ttiiftttitttttfftfttttmttftiM 


f  f 

tft-tf-f-ttft-t-f-'f-i-f-tf- 

ititttittiiititti 

ititiittttittttt 

f-tffftf  Iff  tf-tff 
ftttttt  < 

ittiti  i\ 

tttt 


t 

til-  t 

it  t 
tt  t 
i*  t 

t  it 

i  tit 
iitt 


Your  car  has  no  brakes,  so  working  your 
way  around  the  track  will  call  on  all  your 
driving  ski ll. 


118 


Use  the  following  keys  to  control  your 
boat  and  your  car: 


Q  -  to  move  up 
A  -  to  move  down 
0  -  to  move  right 
P  -  to  move  left 


1  REM  iSWUNGLE  JOB*** 

©Martin  Jones  &  Rn drew  Sweet  land 

2  REM  EPISODE  I 

3  GO  SUB  9©01:  LET  i i =3 
4.  POKE  23653,-0 

5  FOR  t  - 1  TO  3:  BORDER  0:  BRX 
GHT  1:  PAPER  5:  INK  7:  CLS  :  BRX 
GHT  0 

10  FDR  f =1£  TO  21:  PRINT  RT  f , 
0;  PAPER  1.,.,:  NEXT  f 

15  PRINT  SljflT  0,0;  PAPER  1,,, 


20 

PR  I 

N  ! 

RT 

3*0;  BRIGHT  1;  INK 

1  dUUl 

It 

* 

30 

FOR 

f  = 

10 

TO  13;  PRINT  BRIGH 

T  2. ; 

RT  f 

,  q; 

PAPER  3 , . :  NEXT  f 

4-0 

PR  1 

N  1 

HT 

i,S9.;  BRIGHT  l;  IN 

K  6  ; 

:i  DE  1 

J  F*  i 

P 

<23; "rG" 

4-5 

FOR 

f  — 

15' 

TO  ,18:  LET  p  =5+  CRN 

D*15J  :  PRINT  RT  f,p ;  PAPER  1;  IN 
K  6 ; "HI" ; RT  f . p +10; "HI" :  NEXT  f: 

PRINT  RT  20 .RND*3@;  INK  S;  PAPE 
R  l;  '•HI¬ 
SS  LET  X=l? :  LET  y =© 

53  IF  y  <  =2S  THEN  IF  ATTR  (X  .<  y> 
=  14-  OR  nTTR  tX  .y  rlJ  =14  OR  ATTR  C 
X,y+2J=14-  THEN  GO  SUB  13© 

PR  IN  i  ;-}  s  X  ,  !4  r  iHs  7;  r'hrtR 
l;  '■ .  RB" 

7©  LET  y=y+l 

80  IF  INKEY*  =  "q"  THEN  IF  tX'>lS 
AND  M  <291  THEN  IF  ATTR  C  x  - 1  ,  y  }  < 
>14-  AND  ATTR  tx-l,y+l)  <>U  AND  fi 
TTR  (X -1  .y +2)  <  >14-  THEN  PRINT  RT 
x  j  y ;  PAPER  l;  INK  7;*’  .  let  x 

=  X  -  I 
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S3  IF  ZNKEY$s“d “  THEN 
RND  y  <23  J  THEM  IF  fiTTft 
>14-  THEN  IF  FIT  ;R  i X  + 1  ,  y 


IF  (X  <20 
(  X  + 1  ,  y  > 
1?  <  > 14 


HEN  IF  Hi  !  R  f  X  +1 ,,  y  +H }  <  >  14-  s  HEN 

RINT  Hi  x,y;  PAPER  1;  INK  7,” 

•*  :  LET  X  =X  + 1 

55  IF  INKEY $  =  ■' O'*  RND  y  <2S  THEN 
LET  U=m-.5 

56  OUT  254-  .  0  :  OUT  254-  .  16 

90  FOR  Z=1  TO  10:  NEXT  Z;  IF  y 

=30  THEN  NEXT  t :  GO  TO  105 
95  GO  TO  55 

10O  REN  END  OF  EPISODE  I 

105  PRINT  RT  X / y ;  PRPER  1;  INK 

7 ;  " RB “ :  FOR  f =5S  TO  60:  FOR  3  =0 
TO  32:  OUT  254-.  3 +16:  OUT  254- ,-  0  : 
NEXT  g :  NEXT  f 
110  GO  TO  50© 


120  REM  OOOPS « 

130  PRINT  RT  X , y ;  PRPER  1;  INK 
7;  “  UK  “  :  FOR  f  =0  TO  50:  OUT  254-  ,  1 
6:  OUT  254,0:  NEXT  f:  PRINT  RT  X 
+ 1 y  + 1 ;  PRPER  1 ;  INK  4- ;  "CC”  ;  RT  X 

-  1 ,  y  + 1 ,  INK  7 ;  "LH  '*  :  LET  Li  =  L  i  -1: 

IF  L i =0  THEN  GO  TO  6S00 

14-0  FOR  r  =1  TO  SO©:  NEXT  r  :  GO 
TO  5 

50G  REM  EPISODE  II 

505  CLS  :  PRPER  1:  INK  4-;  CLS  ; 

FOR  f =0  TO  21:  PRINT  " NNNNNNNNN 
NNNNNNNNNNNNNNNNNNNNNNN**  :  NEXT  f 

510  FOR  f  =-5G  TO  50:  BEEP  . ©1 ,  f 
:  NEXT  f 


515  FOR  f= 1  TO 

3  ; 

PRINT  PRPER  4- 

;  INK  1 ;  RT  f  ,  0  ;  - 

“ ;  NEXT  f 

520  FOR  f  =£2  i  O 

6  : 

PRi.Nl  §4? 

f  /  IS 

;  PRPER  4-:  INK  1 

* 

f~ , 

S3;  " 

' RT  f  ,28;  “ 

* 1  - 

NEXT  f 

525  F  OR  f  =7  TO 

12  i 

PRINT  RT 

f  ,2 

3;  PRPER  4- ;  INK 

l;  * 

1  ;  RT  f 

^  28/ 

“  -  :  NEXT  f 

530  FOR  f  =3  TO 

4  : 

PRINT  BT 

r  ,  23 

;  PRPER  4 ;  INK  1 
T  f 

.* 

; 

HEX 

535  l“  OR  f  =o  i  ti 

10: 

PRINT  hT 

f  ,  3 

:  PRPER  4-  .  INK  1;  " 

"  :  NEXT  f 

54-©  FOR  f=10  TO  IS:  PRINT  RT  f  , 
l;  PRPER  4-;  INK  1;  “  “  :  NEXT  f 
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TJ  H 


f  f 
} 


>0;  " 


545  FOR  f =15  TO  XT:  PRINT  RT 
11;  PRPE R  4.;  INK  l;“ 

RT  f  .25;"  ••  :  NEXT  f 

550  FOR  ?=18  TO  28 :  PRINT  RT  f, 
3j  PAPER  4-  ;  INK  1;  “  "  ;  RT 

r  .  SB  :  11  ’  NEXT  f 

555  '  FOR  f  =13  ‘  TO*- 15  :  *  PRINT  RT  f  , 

28 ;  PAPER  4- ;  INK  1 ;  “  88  J  AT  f  -  27 

;  14  :  NEXT  f 

BBS  PRINT  PAPER  4;  INK  1 : r 
0  ;  ••  44 ;  RT  s  ,  24;  84  84 ;  AT  : 

**  ;  ay  4.  t  is  ;  ■*  48  :  rt  T  .  13  ; 

:: ;  hT  S ..  28;  *'  “  ;  NT  9f£.;  “  T 

;  **■ ,  hT  9 / 28;  ~ 4  ' 1 ;  As  12/4; 

“ ;  RT  11/22;  "  at  12.21;"  “;AT 

13,  S3;4*  41  ;  RT  13.30;“  “ 

565  PRINT'  PAPER  4*;  INK  1;  AT  1 4-  , 

13;**  BT  14/ S3;  “  RT  24.26;  “ 

4MRT  25/18;  4  “;AT  is,  si  r  ‘)R 
T  16/26;  "  "  ;  AT  17/4;  1  *  81  ;  RT  17/9; 

RT  18/11;  “  AT  18,25;  **  ; 

RT  19.2;  "  ,s;  AT  13/11;  51  !S;  AT  19/2 

5;  “  88  ’ 

570  LET  LET  X  =  2:  LET  y  =0 

:  LET 

5SS  IF  X=C16  AND  y  =312  OR  CX  =13 

AND  U  =31}  OR  «X  =23  AND  y=S13  TH 

EN  GO  TO  TOO© 


561 

600 

IF 

RTTR  Cx,y) 

=12  THEN 

GO  TO 

563 

PRINT  RT  x.y; 

PRPER  4; 

INK 

0;  ds 

565 

OUT 

254/0:  OUT  254/16 

53© 

IF 

I N  K  E  Y  $  “ 8  ‘  O  1  ’ 

THEM  LET 

x  $  =  ’* 

O  “  : 

LET 

d$  =  tsO“ 

600 

IF 

INKEY$  =  "a  18 

THEN  LET 

x  $  =  ** 

a  11  : 

LET 

d  $  =  *  *  F8  “ 

610 

IF 

INKEY  *  = 

THEN  LET 

X  $  as  " 

q"  : 

LET 

d  $  =  t8R“ 

6S0 

IF 

INKEY $  =  “p  41 

THEM  LET 

>;$  =  “ 

P  ”  : 

Lb  J 

d  as-  = 4 1  O 8  ‘ 

630 

PRI 

f*  j  “  •*  «  ,  ?  / 

PAPER  4 ; 

INK 

_  __ 

640  IF  x$r  =  “'Otm  l  HEN  LE  i  y  sy- 1 

65©  IF  X  $  =  * ’ p  THEN  LET  y=y+l 

660  IF  X  $  =  81a  “  THEN  LET  X  =X -M 

67©  IF  x$  =  “q“  THEN  LET  X  =X -1 

660  GO  TO  56© 

70©  GO  TO  30© 

6©0  REM  DO OPS ! 
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810 

PRINT  RT 

x,y; 

INK 

l;  *'S8S 

;  FL. 

RSH 

0  ;  RT 

X  —  1  « 

;  INK 

.*  0  ;  “ 

L,  M 1  *  : 

FOR 

f  =0  ' 

254  , 

15  : 

OUT 

254-  ,  © 

-  ;  HE 

t  i  =  l  i 

—  1  : 

IP  i 

i  >  3  i 

HEN 

INK  2;  FLASH 


254.,  16:  OUT  25-4-  ,  ©  ;  NEXT  f;  LET 
Li =Li -1:  IF  Li >3  THEM  FOR  r =&  TO 
5©©:  NEXT  f:  GO  TO  590 

Sa©  IF  l i  <  =0  THEN  GO  TO  300© 
70S©  REM  SUCCESS ! ! 

7010  BORDER  ©:  PAPER  0:  INK  7:  C 
LS  :  PRINT  RT  10.8; "CONGRATULfiTI 
ONS  i  '•  ;  RT  12.0;  "YOU  HRUE  BEATEN  Y 
OUR  URY  THROUGH'1  ;  HT  13,10;  “THE  xJ 
UNGLE! i “ 

7020  FOR  f=3  TO  30:  BEEP  .01, f : 
BEEP  . 01 . - f :  NEXT  f 
7030  GO  to  SOS© 

704-©  STOP 

8000  REM  FAILURE! i 

S01©  RESTORE  :  BORDER  0:  PAPER  0 

:  INK  7:  CL 3 


80S 

8 

PRINT 

PT  X 

0 

/  X;  ** 

HR 

i 

HR  ! 

FR  SC 

1ST 

t 

YOU  "  U 

E  USE 

D 

UP 

r- 

UE 

RY 

CHRMC 

E  T 

H3T  I  8 

RUE  Y 

o 

803 

© 

FOR  f 

=  1  TO 

12  ; 

RE 

HD 

3  / 

b :  BE 

EP 

a 

«  b  :  HE 

XT  f 

504 

0 

DPT  H 

.  S  ,  -5 

/ 

.5,  - 

5, 

-  5 

«  S  /  ©  / 

.s. 

2 

.5/5 

* 

5  /  1© 

'  /  * 

SST 
*-■  / 

15  , 

.  5  z  20 

. 5 . 25 . 2  —23 

3©5g'_PRINt'~RT  15.0;  "WOULD  YOU  LI 
KE  ANOTHER  GO?  (Y/N) ” 

8360  IF  INKEY S="y“  THEN  LET  l i =3 

:  GO  TO  5 

S©7©  IF  INKEY  $  ="fi "  THEM  PRINT  US 

R  © 

88e3  G *_>  T u  o059 

80S©  STOP 
QQSQ  STOP 

S00©  REH  UDG  DATA 

9001  RESTORE  S0S0:  FOR  f =0  TO  15 
9:  READ  3:  POKE  USR  HEX 

T  f 


9010 

DAT  fi 

8 .«  ©  /  1  /  1  /  4-  S  / 

9020 

DATA 

8  .*  ©  z  X  9  3  /  X  9  £ 

5 , 254- 
903© 

DRTR 

240  /  56  .t  158  / 

6, 4- 
904-0 

DATA 

©.0.0,3/ 15 / 

905© 

DATA 

©  0  /  0  ..  122  /  2 

24-S 

9060 

DRTR 

3 1/31 .»  15  /  15 

*  /  W  mm  * 
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9©7© 

DRT  R 

24 -©  243 , 24©  ,  2 

40 , 132 , 0 , 

0,0 

90S© 

DRTR 

0,0,0, 

1 , 3 , 7 , 3 

1,63 

9090 

24.0 

DRTR 

0,0,0, 

192 , 132 

,224,24©, 

910© 

DPT  H 

0,  24,  4S  ,56,23 

,  14,7, 2 

911© 

DRTR 

0  .*  12  .*  & 

,  14.  ,  23  , 

oo , 112 , 64 

-«%  A  /■».  <r*. 

^  j-«£  vy 

DRTR 

©,  234-  , 

170 , 236 

,0, 0,0,0 

9130 

DRTR 

©  ,  234... 

142, 234 

,  0.0. 0 . 0 

914-© 

© 

DRTR 

24-  ..  60, 

126*  ,  68., 

24,24,60, 

9150 

3,0 

DRTR 

0,233, 

66, 255, 

255 . 55 ,  23 

yiss 

j-l 

DhT  Hf 

9© , 126 

* 30 , 24 , 

90 . 126 , 30 

SITS 

DRTR 

0  f  xs  , 

34 . 255 , 

255 , 34 , 11 

3 , 0 
9180 

DR 1  H 

24-  ,  90  , 

126 , 30 , 

24 , 3© , 126 

,  s© 

313©  DRTR  0,6,70,0,0,46,246,  254 
920©  DflTP.  0,0..0,S4/24l0,0/e 
3210  RETURN 
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Dodge 

In  this  fast-moving  game  of  Logic  and 
skill,  you  are  heavily  disguised  as  an 
asterisk.  You  have  to  avoid  the  VBB's 
[Vicious  Black  Blobs}  which  appear  at 
random  around  you  to  terrorise  and  trap 
you. 


As  you'll  see  when  you  run  DODGE,  you  must 
enter  a  'level  of  difficulty'.  You  need  to 
enter  a  number  between  1  end  100,  with  the 
higher  numbers  representing  easier  games. 
Level  100  is  only  for  real  experts. 


You'll  have  to  keep  moving  to  ensure  you 
are  not  trapped  by  the  VBB's.  Use  the 
arrow  keys  to  move  around. 


2©  INPUT  "Use  cursor  &  e ys  to  ^ 
ove ,  Input  Difficulty 

iitric k y  i  -1  ©0  f easy.4 

**;  p 


3©  BORDER  4:  LET  X  =1©;  LET  y  =3 
5:  LET  S-B:  LET  S =53 

4©  PRINT  "  ”  :  POKE  23632,255 

50  IF  SCREEN®  CXsy  .>="_"  THEN  G 
O  TO  IS© 

60  PRINT  RT  X y y  ;  " * ” :  LET  S  =S  +3 
70  PRINT  RT  x+INT  f.RND #3.4  -3  ,  y  * 
INT  SRNPiS) -l;  INUER5E  3;4,_44 
80  PAUSE  p 

30  IF  CODE  J.MKEV®  ,-r  =>3  nr?  TXIAE  _X 
NKEY$>56  THEN  GO  TO  4-© 

IS©  LET  5  —CODE  XNKE r® 

130  IF  a =S3  RND  U  >0  THEN  LET  y  = 

y-i 

12®  IF  a  =54-  RND  y  <20  THEN  LET  X 

=X  +  i 

130  IF  a  =55  AMP  THEN  LET  .V  = 

X  4~*  jL 

140  IF  a  =55  AND  y  <3®  THEN  LET  y 

=y  +  1 


124 


150  GO  TO 
IS©  PRIHT 
; s ;  PAUSE 
i-RY  AGAIN 


‘/fit!  _=  ;7  r.  r  ^4  " 

TO  P 

-•  -RUN 
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Duel  Cabbageway 

The  fiendish  mind  of  Neal  Cavalier-Smith 
thought  up  this  strange  little  program 
(and  its  'witty*  title).  The  aim  of  this 
game  is  to  plant  cabbages.  You  score  one 
point  for  each  cabbage  you  plant,  and  lose 
10  if  you  attempt  to  plant  e  cabbage  on 
top  of  a  house.  Three  points  will  be 
deducted  from  your  score  if  you  plant  them 
next  to  a  house  or  under  a  tree.  (I  told 
you  it  was  strange.) 

3  let  a  =© 


W»V" 


t>  P H  XH i"  O U  j?  li .»  8  _l  J~' Di  J)  t  u 

r  each  cabbage  you  plant.,  b 

ut  l qs£  10  if  you  plant  one  on 
top  or  a  post  fit  mi  1  i  not  9 

ow  there?  and  3  cabbages  i  /  y 
u  plant  themby  a  house- (bewa/e 
f  terraces?  or  under  a  tree-*1 

10  LET  a<$  =  ”I  S”.  LET  S  — 0 ;  LE 


T  h=0 

£0 

DIM 

bS  (12,52) 

30 

LET 

C$=- 

50 

FOR 

X=I  TO  IS 

50 

LPj 

cS=c|t'“ 

70 

LET 

b$  IX) 

X 

©0 

NEXT 

00 

L.ST 

y  =13 

100  LET  X=«RHDJ12+1) 

*TKfF  -1  *13  *  pr  %  *cr  «_e  ^  ♦  ** 

4QpT“ 

*  ’iie  PRINT  hT  21, 0;  PRINT  JNK  O; 
b  $  CX> 

120  LET  X  =x  *■  C RMD  ^2  - 1 ) 

125  L-szT  s  — S  fl 
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L  G  G 


13©  IF  x > 12  THEN  LET  x  =x -1 
14-©  IF  X  <  1  THEN  L.ET  X  =.x  +1 
14-5  IF  I  NT  X  =6  Rfffi  y=12  OR  y  =1© 
THEN  PRINT  AT  28,4-;  INK  2;  "JB.  ” 

.  PRINT  AT  21,4-;  INK  7;  ”  U  **  r  EE 
T  s  —S  —a 

14-0  IF  I  NT  X=9  BHD'  9=14-  THEN  PR 
INT  BT  28,20,  INK  4-;  /  PRINT 

AT  21 , 2  8;  iNr\  ■»;  “  :  i _ in  i  S  —  3-  -  lr= 

15©  IF  INKEY $=■•'  5  ”  THEN  LET  y=y- 

1 

158  IF  INKEV$- THEN  LET 

1 

178  IF  SCREEN*  (ll,y) <>"  "  THEN 

GO  TO  220 

1S0  PRINT  BT  11,  y;  INK  4-;  "ff  " 

198  POKE  20032,255 
200  GO  TO  118 

228  BEEP  1,1.  LET  h=h4-l.  LtJ  £-  = 
S  -10:  IF  h  =3  THEM  PRINT  "£-rDf  B=” 
;S:  FOR  X  =1  TO  18:  LET  Z=TAN  X; 
NEXT  X ;  PAUSE  50:  RUN 
230  GO  TO  110 
14-59  IF  INT  X=0  AMD  3-12 
THEN  PRINT  BT  28,4;  INK 
:  PRINT  BT  21,4-;  INK  7;  * 

T  S=S-2 


OR 
2;  • 


y=i8 
‘JHkr  ’* 
'  :  EE 
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Ghost  Chase 


The  ghost  is  after  you.  The  small  playing 
grid  has  a  number  of  mines  (X]  on  it,  and 
you  have  to  try  and  tempt  the  ghost  to 
come  into  contact  with  one  of  the  mines. 
At  this  point,  the  ghost  wiLl  be 
e lectrocuted. 

The  mines  also  pose  a  danger  to  you,  so  as 
you  try  to  evade  the  evil  little  ghost, 
you  have  to  make  sure  you  don’t  touch 
mines  or  the  ghost. 

Written  by  Neal  Cavalier-Smith  and  Graham 
White,  this  program  demonstrates  a  fairly 
Intelligent  ghost  in  action.  You  certainly 


SCORE 

10 


won't  be  able  to  evade  it  for  long. 
You’ll  see  that  the  program  runs  very 
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quickly  indeed.  If  it  Is  too  fast  for  you 
the  first  few  times  you  run  it,  insert  a 
few  dummy  FOR/NEXT  loops  to  slow  it  down  a 
bit . 


Si  iR  500 

SUB  000 
q  r0 ;  LI 


5  BORDER  @ ■ 

L5 

1  FT  a  =INT 

__  E^RhU  295  /  y  .*  E^RfiU 
-205,9:  DRhU  0,-169 
50  LET  b  =  INT  CRND*12)  -fl9 
30  LET  x  (TNT  (RND*8)  J  +2 
40  LET  y=2*(INT  i  J3NI>*1&0  )  +10 
4 3  LET  e=S»(INT  (RND*6) J +6 ;  LE 
T  fs2i £ INT  (RND*8J J *10 

4-4-  IF  e  =x  OR  e  =a  OR  f  =y  OR  ?  =b 
THEN  GO  TO  45 

45  PRINT  RT  e  ,  f  ;  PRPER  2;  "X" 

46  IF  q=P  THEN  GO  TO  40 

4?  LET  q=p :  FOR  Z =3  TO  7 ~p :  GO 
TO  45:  NEXT  2 
45  IF  y  >29  THEN  LET  y =29 
50  PRINT  HT  x,y;  INK  5; CHR$  15 
6  :  Lt !  v  =X  :  LE  i  u*  =y 

55  REM  GHR*  1 156 j  is  3  user 

•3  £  :  i  Ti  £  u  H*  3  Tj 

B 0  P  R  TNT  OT  a  b ;  INK  6 ;  CHR  $  14- 

4:  LET  c  =3 :  LET  d =b 

SB  REM  CHR $(5443  is  a  user 


I  &=&:  !»£:  1  p=s&; 

PPER  0;  INK  7:  C 


JL  r“  i —  L‘  I  •_* 

*£*  ^  :  L/HH 


B0  LET  b  =  b- iy  <b)  +  ( y  >  b ) 


X  -X  l  XNIS! 


-2f  (I 


yy  L£ 

NKEY  $  =  ”  7  **  ? 

130  LET  y  =y is * ( INKEY*  =  ” 6 ” )  —2  #  (I 
NKEY*=”5” ) 

105  LET  y  =y  +2*  { y  <  5)  -2s  Lx  >29) 

11©  PRINT  RT  v  ,  u«  ;  ■'  RT  c  /  d  i_  *'  ” 

115  IF  a*x  RND 

120  IF  5 GREEN $ 


i  T  U 
130 
:»  to 


:f  screen  $ 

*90 


b  «y 

*y  |q  cr  tv j 

GO  TO 

4 

ia  , 

bO  as-X* 

e‘  THEN 

G 

Cx  , 

or 

it 

X 

'*  THEN 

G 
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<* P 9 ora  «no*  oioiounuoicicr- cn cn p'-  QQQwwyi^ajnj^iowioiuiowwio^wiM' 

njpQiBcncnrji  ;  y» nn $» q q id h* h h  Ii n 0 id cn  h-’iphrfgud cnt~> p p m p 0 id  w*  p  p p p  p p  ■-. © f n 0 p 
0000r.no  0  0  d  0  0  cn  0  0  %i  cn  cn  h  0  0  0  0  err  •  cn  id  p  0  0  0  00 1  cn  ro  p  0  0  0  0  cop-.j  cn  cn  id  p  0  ■ •  r.n  0  © 


GO  TO  4-9 

PRINT  AT  a,  b;  FLASH  1;  CHR$ 
REH  CHP:  $C14.5)  i  *  a  user 

i  ed  pop 

sr-piQ  J  =o  “pfk  4_0  5*f£D  4. 

bpP  d/S00,  -15"  ‘  ' 

NEXf  d _ 

PkiN *  hi  a  ^  b ;  " 

nr.TK -if*  .-a  *  c* sl> cr r\  ,4  -  p|  Q 

m.  x  t  'f  i  ri  ;  J-  fcJ  .<  r“  r*s  r~  i—  r\  j  *  L-  “ 


PRINT  .RT  12,0;  FLR5H  i; 

GO  TO  10  _ 

FK  J.  NT  H  i  X  ,•  y  ;  *“  LriOfl  JL 

FOR  d=2@  TO  I  STEP  -1 


Ph  IN  ?  fiT  x  44 

LET  pssp-i;  IF  p=0  THEN  GO  T 

Ji 

.-5 f j  TO  jl 0 

PRINT  RT  x#y;  FLASH 
FOR  d  =1  TO  1© 

BEEP  *01,  I  NT  (PNE^60)  -25 

K  •  yrr 

PRINT- AT  X,y;"  " :  PRINT  AT 


1 _ I  C  _p 


IF  p  =0  THEN  GO  T 


GO  TO  IS 

PAPER  1:  FLASH  1 •  CL 3 

12,13; “M  F  N " 

FOR  N  =4-S  TO  -20  STEP  —3. 


FOR  d  =1  TO  2S0;  NEXT  d 
PLASH  0;  CL5 
hhPEh  0  ;  O i — 

IF  hs  f s  THEN  LET  hs=s 
PRINT  AT  5,10;  PAPER  3; "HI 
IRE  *• ;  h s  ;  AT  18,0;  PAPER  3, 

; "PRESS  ANY  KEY  FOR  ANOTHER 

LET  A$=INKEY$:  IF  A$=”"  THE 
TO  56© 

LET  P  =6  ;  LET  S  =® 

GO  TO  5 

FOR  n  =0  TO  7 

READ  d;  POKE  USR  "a'*+n,d 

NEXT  n 
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OH 


CP  -I  C(|  ID  CO  Q  :  CO  o  ID  r-  ’•  •  ,1-  H  ID  '•  ■  c  CO  s  CO  CO  CO  \l  ~-l  -si  r.fi  0i  CO  tji  CTr  Cli  i£i  ffi 
COf-CMZ  :HHl  (DC  :oz  :dh  ©  ©MHOO©  ■’JCftOlf*-’-  W 
©m©  ©  ©  ou+ox  7 ©or.11  a 019000  ©©©©•si© 


i-'H  (  R  ic&  /  /  4*c!  f  j.  0  7  /  X  R  ~P  f  i  d  t'  /  t 

'"FOR  n  =©  TO  7 
READ  d  :  POKE  U3R  "b"+n,d 
NEXT  n 

DfiTfi  U5,S2,®,i95,0,74.,i37, 
FOR  n=0  TO  7 


C?  •"  H DK  UIT'S 

NEXT  n 

**  +n  ,  d 

L-H  I  H  8  /  i=:ir*  /  tr-  ^  3  ,• 

HIT  !  URN 

50  34. 

BOhiDbR  :  PhPlI R  0 

; 

XNK  7 : 

C 

PRINT  Th5  B;  INK 

G; 

FLR3H 

i 

cr 

;  * 

PR  I  NT  '  "You  have  to  move  y 
San  (**;  INK  5;CHR$  156,  INK 
around  the  screen  to  enti 


he  ghost  (**;  INK  6,C.HR$  i4-4-; 

7;")  which  is  chasing  you, 
run  into  the  bombs {“;  PAPER 
ROPER  O; " ) . Bu t  be  care/ 
u  don't  run  into  the  bomb  o 
the  ghost  catch  you.  You  h 
lives. 

PRINT  *  '  **  PRESS  KEYS  *•  ”S"  "  - 
TO  HOVE  IN  DIRECTION  SHOWN 
KEY  " 

PRINT  ■'  FLh5H  i;  "Press  any 
to  continue" 

LET  3$  =  INKEV$:  Ir  INKEY$  =  "  " 

r.  i  r  t" i  V  *  *  -JUS-  rt  »”7 

r*,cr-r-i  ihk; 

Ri-  *  L?rw^ 
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Q&-tC 


Frog  on  a  Log 


Frog  on  a  Log  is  another  great  program 
from  Malcolm  Young.  He  says  he  enjoyed 
creating  this  program  as  with  it  he  had 
broken  new  ground  in  programming 
techniques.  "For  example,"  he  wrote,  "I 
have  been  experimenting  with  machine  code 
routines  and  produced  a  scroll  left 
routine  of  my  own... The  computer  cannot 
usually  recognize  user-defined  graphics 
using  SCREENS,  and  most  people  have  got 
around  this  by  using  the  ATTR  function. 

"I  found  that  by  pointing  the  system 
variables  CHARS  to  the  UDG  memory,  SCREENS 
can  operate  in  the  normal  way,  although 
you  must  use  the  letters  that  the 
character  represents.  I  have  used  this 
technique  in  my  program  from  lines  300  to 
490.  This  technique  hes  the  advantage  of 
recognising  any  UDG  characters,  including 
non-flashing,  non-bright  black  ones. 

"I  have  made  the  program  so  it  can  be 
typed  into  the  1 BK  model  as  well  as  the 
48K  model  without  any  modifications,  i.e. 
line  30  CLEAR  USR  "2"-43  for  the  machine 
code. " 

The  object  of  Malcolm's  program  is  to 
catch  as  many  insects  as  possible  using 
keys  I  and  P  for  Left  and  right,  and  CAPS 
SHIFT  to  make  the  frog  jump.  You  must 
avoid  going  off  the  screen  or  falling  off 
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the  log  and  encountering  the  spider,  as 
this  will  result  in  a  Loss  of  Life.  Each 
fly  starts  off  with  200  energy  units  and 
this  slowly  decreases  to  zero.  When  it 
reaches  zero,  the  frog  starves  and  dies. 


Butterflies  may  appear,  and  if  caught  are 
worth  10  energy  points  plus  50  bonus 
points.  You  have  only  a  50%  chance  of 
catching  a  butterfly,  no  matter  how 
accurate  you  are  in  your  jump. 


You'll  find  this  program  quite  addictive 
and  you  may  wish  to  modify  it  to  include  a 
skill  level  option,  which  changes  the  size 
and  number  of  the  logs.  You  should  type 
the  program  in  and  then  save  it  by  using 
SAVE  "frog''  LINE  5000. 


2  REM  a  =  b  »  ft  c  =&  d  =£»  6  f 

9h  i  J  -  t  m 

20  REM  fr og  c*rt  a  log 
£0  DEF  FN  f (X) =INT  (RND*X)+1 
3©  CL  ERR  USR  "a  "-4-3 
40  SO  SLtS  0000  .•  REM  t iS* 

45  GO  SUB  312.0 


50  SO  SUB  5000-  REM 
50  S&  TD  50-0 

70  POKE  23606,0:  POKE  £3607,6® 
B0  PRINT  RT  0,0,  BRIGHT  2;  INK 
7;  PAPER  2;  "SCORE.-  ",it,  TRE  II; 
"ENERGY.*  ";ec;  rss  £4;  "Ffioes.-  .%* 

rog 

90  RETURN 

20©  REM  read  Keyboard 

210  LET  R  =PEEK  £3556 

220  LET  X  =.X  +  (K  =80.»  -  fR  =73.1 

230  IF  X  <2  OR  X >32  THEN  GO  TO  3 

30 

2 <20  LET  K=ZN  65275* 

24.5  GO  TO  ( R  =254  OR  Jp  J>  *d£.  *  150 
250  PRINT  RT  y  -2;  “  ft  ’* 

260  IF  NOT  POINT  Cx*8,31)  THEN 
GO  TO  450 
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3  65  RETURN 
REN 

sfT,  LSrr  *-P-30:  LfT  6E- 

-<*-©.  PAINT  RT  u  ,x  -z ;.  " 

IS®  POKE  2S6B&;.Jtf:  POKE  2S6P7^Jb 

h 

2130  FOR  t  =0  ra  1 
21£»  LET  y  =y  -  jp 
22  5  GO  TO  fy=2  72  *230^220 
220  IT  SCREEN*  Jy,..VJ  .V'.f"  THEN  2 
O  TO  3.00 

230  PRINT  RT  y-2,;s;"s"  >5.1*0  JP  -5 0 
L  sTT  y  ,.  ■  c  ~ .:.  PT  y.  *  2 ,-  X  ;•  "  s£  "  ;-  ST  y  +2  ,- 

v;**a"  RW£>  TJp  .->0  PU>*£v  y  :i6i;  beep 

2  4-0  NE.V.T  i 

260  LET  t*p=bp+jp 

270  LET  jp  »Jp  -2#  fy  -;3.t  +  ly  >161 
230  POKE  23606- ,  0.  POKE  23007,-60. 
220  RETURN 

300  LET  i^=SC«EEN$  fy,X> 

32©  IF  af  =  "i  **  OR  =  THEN  L.E 

T  e-sTy -2>  *-32*>< -2  *  LET  i  $  »e  TO  e  f* 

2;  =  **  "  ;  GO  TO  350 

320  IF  a$  =  "g"  OR  a  $  =  "h"  THEN  I-E 

T  b=0;  LET  BP  =&r.*  *20  .*  LET  J>C=SC*2. 
0.  GO  TO  350 

330  FOR  1=20  TO  30:  BEEP  25y-1 
:  SEEP  .  l,-2-.S:  NEXT  Z  _ 

34®  LET  ?r&3  =?r&&-±  .*  £-6T  2  =0.*  5 

EEP  2  ,  -20.*  IF  WOT  /LPS  T«EW  GO  T 
Q.  1000. 

o4S  LET  en=£00:  GO  TO  6000 
350  LET  SCsSC+10:  LET  JP=-1 
360-  BEEP  ,E,.i^ 

370  GO  SUB  7© 

330  PE7LJPN 

4-00  IF  ECPEEN$  i.P'B"  TTSEM 

GO  TO  LS0 

4.10  GO  SUB  S0S0 

4-20  PAINT  AT  *>-i  ,X  L  "C  ";  RT  y  ,04  ;- 

~*430  PRINT  RT  16  ,  x -1 ;  **  a  aa  ** ;  RT  17 

,  x ;  **  fa*’ 

4-4-0  RETURN 

450  BEEP  .05,-5  __  A  _  . 

460  PRINT  RT  26,:<;  "  ";PT  27,.**, 
33"  J  PST  IS,  X  ,'  _ 

470  BEEP  .05,-5  . 

480  PRINT  RT  17  ,  X  ;  ;  RT  I®/ »  >, 


BEEP 


1, -5;  PRINT  RT  18, X, 
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4.90  GO  TO  330 

500  rem  wain  routine 
528  IF  RND  > . 05  THEN  GO  TO  S60 
530  LET  St  s*32*  I'FM  r  t'6.1  +9.<  -I 
54:0  LET  i${St  TO  St+1)=‘‘#“ 

550  PRINT  AT  1,8;  INK  l;i$ 

570  LET  i$=i$(3  TO  S 

5B0  LET  X  =X  -NOT  Jp :  LET  L  =USR  » 

" &0S  SEEP  . ©05 , 10 
&1©  GO  SUB  100 
520  GO  TO  {NOT  fcO 
53©  LET  d  =FN  r  (41  :  LET  b=b-l 
54-0  LET  by  =by  +  (d=l)  -  (d=2J  :  LET 
bx  =  bX  +  fd  =3)  -  td  =4-J 
b50  LET  by  =by  -  (by  >15)  +  (by  <11  :  L 
=T  bX  =bX  +  C  bX  <01  -  C  bX  >  303 

55©  PRINT  FfT  by ,  b.v;  INK  2,’  OVER 

*  * 

57©  IF  NOT  b  THEN  LET  b=(RND>,9 
.1  if1  i'FN  r  (201  +5.1  ;  IF  b  THEN  LET  by 
=FN  r VIS! +1:  LET  bx  =FN  f  f30) 

&8©  REN  spider 

590  LET  S  s=S  +  (RND>  .  4.)  *  (  (S  <X  1  -  CS  > 

x  :*  i 

700  PRINT  INK  0; RT  16,0; q$; AT  1 

s,  s; 

710  IF  y  >15  RND  t.X  =S  OR  x=s+ll 
THEN  GO  TO  810 
720  LET  en=en-l 

730  PRINT  RT  8,19;  BRIGHT  1;  IN 
k  7;  prper  2; en; "  " 

74.0  IF  en  <0  THEN  PRINT  PAPER  2; 
3T  8,7;  FLASH  1 ; "No  More  Energy* 
" :  GO  SUB  330 
790  GO  SUB  10© 

8©0  GO  TO  S00 

310  PRINT  INK  0; AT  16. s;"  ";RT 

w 

32©  FOR  Z =0  TO  1  STEP  .1 
330  BEEP  Z , —Z + 10 :  NEXT  Z 
340  GO  SUB  340 
350  GO  TO  500 
1 000  rem  score  table 
1010  GO  SUB  5000:  GO  SUB  70 
1020  IF  S  C  <  =hs  THEN  GO  TO  1050 
1030  INPUT  "You  have  the  new  hig 
b  score? ", "Please  type  in  your  n 
awe.  **;  line  n$ 

1040  LET  hs=sc 
1050  DIM  a$(ll 

1060  INPUT  "Do  you  want  to  play 
again?"; a$ 
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1070  XF  a$="n"  OP  a$="N"  THEN  PO 
KE  23693,56;  PRINT  RT  20,10; "OK, 
Play  again  soon.";  pause  se.-  BOP 
C€R  7;  RANDOMIZE  USR  475© 

10S©  GO  SUB  8120 
1090  GO  TO  5© 

5003  REH  Ti  US 

5010  BORDER  5:  PAPER  1:  INK  4;  C 

L5  PRINT  AT  2,0; _ 

5020  PRINT  TAB  4 ;  "H" ;  TAB  20;  *'B 

5030  PRINT  TAB  4;"*";  TRB  19;  "fi 


304.0  PRINT  TRB  4;  "1 


5050  PRINT  TRB  4;  "S  I  I  XI 

■  SI  I" 

506©  PRINT  TRB  4;  "B  I 

SB  I  I 

5070  PRINT  TRB  16;  "I”;  TRB  14;" 


5080  PRINT  "TRB  6;  *’ 
5090  PRINT  TRB  5; **■ 
510©  PRINT  TRB  5; "■ 

5110  PRINT  TRB  5; "B 


f 


f  i 


512©  PRINT  TRB  5;  "■  ■  SB% 

3130  PRINT  TRB  22;”|";TRB  20;” 


5135  RESTORE 
5140  FOR  a  =1  TO  1© 

3150  READ  n ;  IF  n  =99  THEN  PAUSE 
5;  GO  TO  5170 
316©  BEEP  . 15 , n 
3170  NE.XT  a 

5180  LET  X —PEEK  23730 +256 aPEEK  2 

3731 

5190  IF  X  =USR  ”3 " -1  THEN  RUM 
32©0  RETURN 

350©  DATA  2,5,3,99,2,5,3,99,5,1© 
3©0©  REM  set  display 

3010  BORDER  2;  PRPER  5;  INK  6;  C 

Ls 


3020  GO  SUB  70 

3040  PRINT  PRPER  3;  INK  4; RT  17, 
0;  TRB  31;"  ** ;  TRB  31;**  " 

305©  PRINT  PRPER  1 ; TRB  31;"  " ; TR 

O  32  t*  **  *• 

5053*'  PRPER  3 
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m5  p^T 


6057  PRINT  RT  19,0 


0060  PRINT  RT  £1,0;  PAPER  2;  INK 
7;  BRIGHT  1;  "  HIGH  SCORE  " ;  hs- ;  " 
" ;  n  $ 

3070  LET  y=17:  LET  X =19 
3060  LET  JP=0 
3090  LET  dS  =20 
310©  RETURN 

3110  LET  hs =0 :  LET  n$=“" 

312©  DIM  i $ (430) 

3160  LET  b=0 :  LET  lit  =0 

3170  LET  n=USR  "3  "-776:  RRNDOMIZ 

E  n:  LET  Ui=PEEK  23670;  LET  hh =P 

EEK  23671:  RfiNDDM IZE 

3160  LET  b=©:  LET  w =© 

319©  LET  S  =0 
3200  LET  frog  =3 
3210  LET  en  =200 
322©  LET  SC=0 
3240  DIM  q$  C32.> 

3300  RETURN 

9000  REM  define  graphics 

9010  RESTORE  9000 

9020  FOR  C=1  TO  13:  RERD  C$ 

9030  FOR  6=0  TO  7:  RERD  n 
9040  POKE  USR  C.  Ifc  +6  >  Tt 
9050  NEXT  6:  NEXT  C 
9060  LET  J»C=USR  "a  "-42 
907©  FOR  ffl=»C  TO  *C-»4i 
90S©  READ  byte:  POKE  m , by  t  e 
9©90  NEXT  Hi 
9X90  RETURN 

3135  DRTR  "S",0,0,0,0,0,©,©,0 
3200  DRTR  “b" , 36, 126, 60, 153, 126, 
126,60,99;  REM  frog 

3213  DRTR  " C ",165,231 ,66, 129, 1S3 
,153,126,60:  REM  172 jumping  frog 
3220  DRTR  " d " , 126 , 126 ,60,90,129, 
135,36,195:  REM  172  jumping  frog 
9230  DRTR  "e" ,170,65, 170,85,170, 
jL’T7©  S  *5 

9240  DRTR  " f ” , 173 , ©5 , 170 , 35 , 0 , © , 
0 . © :  REM  log  (bottom) 

925©  DRTR  “9 ” , 17 , 109, 66, 130, 170 , 
66 , 109 ,17:  REM  1 72  butterfly 
9260  DRTR  "h ” , 16 , 10S , 212 , 130 , 170 
,212,106,16.  REM  172  butterfly 
9270  DRTR  " i " , 1 , 2 , 4 , 73 , 253 , 56 , 86 
,73:  REM  insect 
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9280  £>RTR  "  j  "  224-^  16.,  112,.  12S,,  85.. 
0,©.,©:  REM  insect  taii 
330©  DflTfi  "  l  **  ,0,34  ,  S3, 159, 188 , 17 
1 .»  14-4-  ,  30  ;  REM  spider 

9310  DATA  "B"  ,0,68,202,24-2,98,21 
©.,  10.,  10:  REM  spider 

9320  REM  machine  code  scroll  tef 

3330  DATA  33,32,80,62,3,50,129,9 

2,6,S,197,229,126,245,84.,93,35 

334-0  DATA  1,31,0,237, 176,241  ,  IS  , 

225,36,193,16,237,167,17 

3350  DATA  224,7,237,82,58,129,92 

, 61 , 32 , 220 , 201 
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LEISURE  LINES 
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Card  Pairs 

This  game  -  written  by  Raymond  Blake  -  is 
based  on  Pangolines,  in  which  you  have  to 
try  to  pick  pairs  of  cards  from  a  pack  of 
20  until  no  cards  are  left.  The  aim  is  to 
do  this  in  as  few  moves  as  possible. 

When  prompted,  enter  the  coordinates  of 
the  card  to  be  turned,  entering  the  column 
number  first.  The  chosen  card  will  then  be 
turned  over.  You  do  this  again,  so  two 
cards  are  showing.  If  the  two  cards  are 
the  same,  they  are  removed.  If  not,  they 
are  turned  face  down  again.  The  game  ends 
when  there  are  no  cards  left,  at  which 
point  the  score  will  be  given.  The  lower 
the  score  the  better.  Raymond  Blake 
challenges  you  to  beat  his  best  score  of 
17  turns. 


30  BORDER  0.  FRFER  0;  INK  7.  U 


L5 

50  DIM  a(4,S5:  RRNDOMIZE 
6©  LET  a I i I2i3i41S2 12223242 
531323334354-14-24344-4^" 

S©  FOR  i =1  TO  1© 

90  FOR  j  =1  TO  2 

100  LET  l  =LEN  a*-  LET  b=INT  «RM 
£>*l/Si*2+l:  LET  b$=s$i's  TJ  b*IJ 
120  LET  X  =URL  b  $  i  1  >  .  LET  *4  =4«NL 


b$  fSJ 

130  LET  a$=a$(  TO 
TO  )  RND  b<>l-l-i 
150  LET  a  Cx  =i  : 


b  — 1>  +  fS$i b+2 
NEXT  J .  NEXT 


s. 

20©  LET  S  C 

210  FOR  i  =1  TO  5:  PRINT  NT  0,-4* 
i-l;  INK  2;  INVERSE  I;-  BftiSHT  1; 
i :  NEXT  i 
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22lS  PQR  j  TO  w .  FRXH  s  ST 
3,0;  INK  2;-  INVERSE  X  •  BRIGHT  X; 
i  +  i  ■  FOR  i  =0  TO  4- :  FOR  ?.  =2  TO  B : 
PRINT  ST  js-S+K  ,i3-4.+2;  INK  3;  "BE 
W"  :  NEXT  K  :  BEEP  -  S3  *  30 ;  NEXT  i  : 
NEXT  J 

330  PR  XNT  ST  3 , 23 ;-  " TU r  F*  & V t  f  ";R 
"T*  0  *  M  ,a 

34-0  IF  INKEY* <>””  THEN  GO  TO  34- 

0 

350  LET  q*=XNKEY*;  XF  q*-I  "X"  OR 
q*>”4”  THEN  GO  TO  330 
360  PRINT  hT  6,24-;  q*:  BEEP  .05, 
20:  LET  qlsVAL  q* 

370  XF  INKEY* <»M"  THEN  GO  TO  37 

0 

360  LET  q*  =  XNKEY‘*:  XF  q*-;”X”  OR 
q*>”5”  THEN  GO  TO  330 
390  PRINT  RT  3,26; q*.  BEEP  .06, 
20:  LET  q2=URL  q* 

4-00  XF  S  {qX ,  q2.»  <>S  THEN  GO  TO  4- 
50 

4-10  PRINT  RT  10,23;  INVERSE  X;” 
Try  again” 

4-20  BEEP  1,-10:  PRINT  RT  3,24-;” 

RT  10,23; ” 

4-3©  GO  TO  33© 

4-50  PRINT  RT  6,23;”  ”;R 

T  8,24-;  ” 

4-7©  LET  xl  =  fqi-i>  #5*2;  LET  !ii  =  !' 
q2-X.*  *4+2;  LET  X  =X  1 .  LET  y  =y  X  -  L 
ET  C=qi:  LET  d =q2 :  GO  SUB  30© 

4.G©  LET  qi=C;  LET  q2=3 
53©  PRINT  RT  6,23; "Turn  over"; ft 
T*  S  *  2^  *  **  *  * 

sie^IF  INKEY  $  <  >  ”  ”  THEN  GO  TO  54- 

0 

550  LET  q$=INKEY$:  XF  q*-;”i”  OR 
q*>”4"  THEN  GO  TO  550 
56S  PRINT  RT  3,24-;  q*.  SEEP  .05, 
20:  LET  pl=VRL  q$ 

570  XF  INKEY $ < > “ "  THEN  GO  TO  57 

© 

530  LET  q*=XNKEV‘*;  XF  q*<”X”  OR 
q*>”5”  THEN  GO  TO  530 
500  PRINT  RT  6,26;  q*.  BEEP  .05, 
20:  LET  p£=MfiL  q* 

60S  XF  a  ipi, p£ >  s:*S  THEN  GO  TO  6 
60 

6X0  PRINT  RT  10,23;  INVERSE  X; ' 
Try  again” 
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X  X 


620  BEEP  1 ,  -iO:  PRIWT  Hi  6 .  £4-  ; 

**;ftT  1 0,23;  " 

630  GO  TO  630 
656  PRINT  AT  6,23;"  ";ft 

T  8  ,  24- ;  " 

670  LET  x2={pi-i.U5+£;  LET  42=  i 
P2-1.U4.+R:  LET  x=x2:  LET  y  =y2 :  L 
ET  C  =p  i :  LET  d=?2:  GO  SOS  SSS 
60S  LET  pl=C :  LET  p2=d 
695  LET  £.C=SC*I 

700  XF  3  (qi,q2)  <  >a  Vpi#p2.s  THEN 
GO  TO  760 

705  FOR  i =0  TO  12  STEP  6:  SEEP 
•i,i:  NEXT  i 

71©  FOR  i =0  TO  3:  PRINT  NT  Xi+i 
,yi;  " ; RT  x2+i ,y£;“  NEXT 

i 

720  LET  3  (<*1  ,<*2.i  =0;  LET  alpl,p2 
)  =0 

730  LET  C  =© :  FOR  i  =1  TO  4- ;  FOR 
J  =1  TO  5:  LET  C  =c  *3  {i  ,  j)  ;  NEXT  J 
:  NEXT  i 

74-0  IF  C=0  THEN  SO  TO  300 
750  GO  TO  300 
760  BEEP  .6,0 

765  FOR  f=I  TO  200:  NEXT  f:  FOR 
i =0  TO  3:  PRINT  RT  xl»i ,al;  INK 
.  6;  “BBS" ;  rt  x2*i  ,  y2;  "Hi''  -  next 

770  GO  TO  300 

600  RESTORE  1000 ;  FOR  I =1  TO  B * 
C  ,  d  )  :  RERD  X  3 :  NEXT  2 
620  PRINT  RT  x,y;z«f  TO  3.4  ;  RT  x 
+  i,y;z${4-  TO  S> 

830  PRINT  RT  x+2,y;z$(7  TO  9i  ;  R 
T  x+3,y;z$(10  TO  12> 

650  RETURN 
900  CLS 

920  PRINT  RT  8,2; "You  cleared  t 
he  table  aft er**;RT  ±0,il;sc;**  tu 
rns  ** 

930  FOR  i =1  TO  25.  BEEP  .01,1: 
NEXT  i : 

94-0  LET  3$="Pf££-£.  any  sie-y  for  a 
new  §sBe”:  PRINT  RT  12,2; 

95©  FOR  1=1  TO  LEN  £  $.  PRINT  IN 
K  6 ;  a  $  ( i  >  ;  :  IF  a$(i  >  •:  :»  "  "  THEN  B 
EEP  . 03 , 20 : 

952  IF  a*fi>="  *'  THEN  PROSE  2 
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35S  M£TXT  i 

960  IF  INKEYS^""  TN6N  SO  TO  960 
970  RON 


Sub  Search 


In  this  challenging  game  from  Malcolm 
Young,  you  have  to  track  down  and  destroy 
a  submarine  in  the  shortest  possible  time, 
by  employing  your  fleet  in  a  strategically 
sound  manner. 


You  control  a  fleet  of  warships  made  up  of 
a  battle  cruiser,  two  patrol  vessels  and 
three  frigates.  Your  task  is  to  hunt  and 
destroy  an  enemy  submarine  which  has  been 
lurking  around  the  shipping  lanes  near 
you.  Your  battle  cruiser  is  equipped  with 
a  sonar  system  which  rises  in  pitch  as  it 
gets  closer  to  the  sub. 


Each  vessel  can  carry  only  a  limited 
quantity  of  depth  charges.  Once  they've 
been  fired,  your  ship  must  return  to  port. 
Full  instructions  are  within  the  program. 


1©  REM  Sub  search 

S©  REM  ©  1983  Ma I co I©  Young  _ 
3©  REM  a  b=*  C  d  e  =*  f  =C 

g  =  i  h=-  i  =  -  J  =*-  K  l  =."  ffl  n  =;f 

4-0  DEF  FN  bt)  =SOR  (FN  S(SXfSll 
.-13  3  +FN 

50  DEF  FN  S  (a  ,b)  =RBS  (a-b)*flBS 
c  a  -  fc ) 

60  DEF  FN  r  fxJ  =INT  £RNDfX)  +1 
70  DEF  FM  (BBS  ( J  -X 

3  <?)  (  l  ={ft  J 

©0  GO  SUB  9000:  REM  define  grs 

hQ0SGO  SUB  8000:  REM  instfUCtiO 

5 100  GO  SUB  7000:  REM  Set  UP  SCr 
sen 

11©  REM  VVVVVVVVVVVVVVVVVVVVVVV 
120  REM  move  submarine 
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13©  LET  sm  =FN  f  (63 
14-©  LET  SX  =SX  +  «sa  =1)  -  (S»  =23 
2.5©  LET  sy  s*sy  +  f  s»  =3)  -  ts®  =4-3 

16©  LET  Sd  =Sd  +  (SB)  =  53  -  (sm  =63 

17®  LET  SX =SX +  CSX  <13  -  (SX  >193 
is®  LET  s y  ss  y  +  r  s  y  <  1 3  -  fsy  >19) 

29©  LET  £  d  =S  d  +  (Sd  il)  —  (Sd  >93 

21®  FDR  £  = 2  TO  6 

22©  IF  FN  t  (  S X  ,  £  f  C  ,  13  ,  sy  ..  £  f  C  ..  23 

>  THEN  GO  TO  5000 

230  IF  FN  t  (Sy  (C,2)  ,.SX  ,£  (C,l) 

>  THEN  GO  TO  500© 

24-0  NEXT  C 

25©  REH  player's  move 

260  PRINT  80; "  Press  any  Key  to 

throw  dice.**  _ 

27®  IF  S (1,1) >=0  THEN  PRINT  AT 
15.,  21;  "So  an  a  r  " ;  AT  16.21;  "reads:  " 
;  INK  3;  FLASH  1 ; INT  FN  b();  FLA 
SH  0;  INK  5;  ••  " 

260  IF  Sll,13  >=®  THEN  BEEP  ,1,1 
0  — FN  b():  PAUSE  10 
290  IF  INKEY  $  =  •“•  THEN  GO  TO  23© 
3©0  RtM  di ce 
305  LET  nb=nb+l 

31©  LET  d=FN  r 1203 +1©.  LET  m =FN 
r  C  63 

320  FDR  i =1  TO  d 

33®  LET  m-m*  f»  <63  +1  :  BEEP  „  1  ,  SS 
34-0  PRINT  AT  18,21;  "You  have  ; 
AT  19,21;  CHR$  C 151+JS3  ;  "  moves." 
35®  NEXT  i 

36©  PRINT  BRIGHT  1;  FLASH  1;  IN 
K  f» ;  PRPER  9;  AT  19,21;CHR$  C1S1-F 

si  i 

370  SEEP  1x10:  LET  n  =© 

360  LET  n  =n  *  Cn  <63  +1 
390  LET  p=stn,2>:  LET  r=sfn,l) 
395  IF  r  <0  THEN  GO  TO  380 
4.00  PRINT  FLASH  1;  INK  n-i;  PRP 
ER  7* ;  AT  p  ,  r  ;  d  $  C  n  3 
4-10  PRINT  PRPER  n-1;  INK  9;  AT  2 
3;  s  $  Cn)  ;  **  l  *' ;  s  ln,l)  j  "  ,  s  (n,2); 

120  PRINT  AT  21,6; "depth  charge 
s  lef t ; s In .3) 

$30  INPUT  RT  "ERtar  »&v»a .  ** 

;  LINE  m$:  IF  m  $  =  *• "  THEN  PRINT  I 
NK  n-l;  PAPE R  S+  m  =63 ; RT  P , r; d$  c 
n  3  :  GO  TO  38© 

4-4.®  LET  ULEN  »$:  IF  l  >®  THEN  B 
EEP*  1 ,  -1*0*;  GO*  TO*  <t5*®* 

4.50  FOR  C=1  TO  l 
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4-6®  IF  tt  *  C  C  )  <  >  "ri  "  RN D  m$  ic  3  <  >  "£ 
"  AND  J»$CC><>"W"  AND  Br$f  C>  <>"£'* 
SHO  m  $  (  C  3  <  >  **  d  "  THEM  INPUT  AT  0,0 
/"invalid1  3?ai.<i,  "/  LI 

N£  iB*:  &a  TO-  44£f 
47®  IF  »$tC3=“d"  THEN  GO  TO  ©70 
4.80  NEXT  C 
4-90  REH  move  Ship 
©00  FOR  q=l  TO  l 

510  PRINT  RT  p,r;  PAPER  5;  BRIG 
HT  l;  INK  o;  *T" 

520  BEEP  .1,15 

530  LET  p  =P  -f-  On  $  tgy  =  "s  "y  ~  t J»4r  f«*Jr  = 
”n  ”  3  +  (P  <03  -  Ip  >203 
535  IF  p  =20  AND  r <S  THEN  LET  Si 
f»  , 33=3:  BEEP  1,20:  PRINT  AT  21,0 
; "3  Depth  Charges  loaded.":  LET 
b  =19 

54-0  LET  r  =r  im $  tq>  ="e  "3  -  fro$  tq3  * 
" us  *’  >  f  r  < 0.3  -  ( r  >2©3 
550  IF  ATTR  £p,r3  <64-  THEN  GO  TO 
3000 

560  PRINT  RT  P,r;  PRPER  5;  INK 
n -in  <>63;  OUER  l;d$(n3 
570  BEEP  .1,20 
SS0  LET  m=»-l 

59©  PRINT  BRIGHT  l;  FLASH  1;  IN 
K  »;  PAPE R  9;  RT  19, 21.;  CHR$  1 151  + 

3i  3 

500  NEXT  q 

610  LET  s  in , 13  =r ;  LET  Sln,23=P; 
IF  NOT  U  THEN  GO  TO  650 
62©  INPUT  “Do  you  want  to  fire 
3  charge?”;  LINE  i$ 

630  IF  i$0  -  y  HMD  i  $  <  >  ~n  -  THE?-*' 

INPUT  “Fire  a  depth  charge? 

LINE  j$:  GO  TO  63© 

S4-0  IF  i$=”y“  THEN  GO  TO  670 
650  IF  J»>0  THEN  GO  TO  330 
56©  GO  TO  120 
570  REM  fire  depth  charge 
675  IF  sin, 33  fl  THEN  PRINT  FLAS 
H  i;rt  SX * ®i "No  depth  charges  le 
ft!”:  GO  TO  650 

©B0  PRINT  RT  2,21,  PRPER  6,  INK 
S3,-  "YELLOL*" 

690  FOR  a  =1  TO  7:  BORDER  7:  BEE 
P  .3,-1.  BORDER  6:  PAUSE  5:  NEXT 
a 

700  PRINT  FLRSH  1;  INK  7;  PRPER 
3; RT  21,3; "Depth  charges  ready* 
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71©  input  "Enter  depth-  ii  TO  A 
D>  dp 

720  IF  dpt I  OR  dp  >10  THEN  INPUT 
io'p;  ”  is  out  of  range,  try  again 
"? / dp :  GO  TO  720 
730  LET  dp=INT  dp 
7*3  BEEP  .  o  ,  -I©:  BEEP  .2,23 
750  FOR  F =19  TO  -dp  STEP' -A 
76®  BEEP  . ©2 , f 
770  NEXT  f 

730  BEEP  . S,-A0:  PRUSE  23 
793  XF  S.X  =r  RND  sy=p  THEN  BEEP 
.5,1:  IF  id =dp  THEN  GO  TO  1300 

333  LET  S.  fn  ,  3.>  =S  fn  ,3)  -1 
810  PRINT  FLASH  A; RT  21, ©."Miss 
Sd! IF  sx =r  RND  sy=p  THEN  PR3N 
T  RT  21,6; “The  sub's  right  under 
you?  '• 

32©  PAUSE  10© 

330  PRINT  RT  21,0;" _ 

34-0  GO  TO  110 
1030  REM  sub  destroyed 
1010  BORDER  1;  PAPER  1:  BRIGHT  1 
INK  7.  CL  S 

1020  PRINT  RT  2,3; "CONGRATULATIO 

MS  !  " 

1030  PRINT  RT  4-,  3;  "You  manage  to 
destroy  the" 

104-0  PRINT  RT  6,3;  "sub  in  ";nb;  " 
rounds  .  " 

1050  PRINT  "That's  "jpc/nfasieo; " 
%  efficiency." 

ISP©  INPUT  "Would  you  lixe  to  pi 
ay  again?  LINE  i$ 

1070  IF  i  $  =”y "  THEN  RUN 

103©  BORDER  7;  PRPER  7:  INK  0:  E 

RIGHT  0:  CLS  ;  STOP 

3©S0  REM  collision 

3310  BEEP  1,-12 

3020  PRINT  RT  21 , 6; "COLLISION! 
303©  IF  ATTR  (p  ,  r i  =4-0  THEN  PRINT 
RT  20,0;  FLRSH  1;  INK  0;  PRPER 
7;  s$  (n)  ;  ”  has  sunt!":  LET  s  in  ,  1) 
=  -l 

304-0  IF  RTTR  ip , r } <n *S+n -1  THEN 
GO  TO  310© 

3050  PRINT  RT  20,0;  FLRSH  1;  INK 
©;  PRPER  7;s$(DJ  ;  "  has  sun*!''; 
LET  s  in , l> =-l 

3060  FOR  a=l  TO  0  STEP  -„1;  BEEP 
3,3*5-20.  NEXT  a 
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3070  PAUSE  100 

30S0  PRINT  AT  2©  ,  0; TAB  31;"  ” ; TR 

3  31;  "  " 

3030  GO  TO  11© 

31©0  LET  S=flT  TR  (p,r>-4-0 
3110  STOP 

4-333  REM  *  1 * 1- 1 1  *  *  t  ?  f  *  $- ? I  f  1 *  + 1 1  ^  t 
50©0  REM  submarine  attacK 
3005  IF  RND>.7  THEN  GO  TO  250 
5010  BORDER  2:  LET  U =1 :  PRINT  AT 
2,21;  PAPER  2;  INK  7;"  RED  " 
5020  FOR  a  =1  TO  7:  BORDER  4-:  BEE 
P  .5,-5:  BORDER  2:  PAUSE  5:  NEXT 

5030  IF  RND <©.5  THEN  GO  TO  5500 
5©*©  PRINT  AT  21,0;  INK  7;  BRIGH 
T  l;s$(c);M  under  attacK?" 

504-5  PAUSE  50 
=5050  LET  p  =5 

506©  PRINT  AT  21,0;  PAPER  6;  FLA 
SH  1 ; "Press  ' F '  and  hope  for  the 
be  st«" 

5070  FOR  t  =1  TO  2 

S0S0  LET  tl=FN  r (IB) :  LET  pf=ttl 
*6+164) -203 

3030  PRINT  AT  B,20+p;  PAPER  5;  I 

•‘JhT  ^  *.  * 9  ^  #» 

5100’  LET  p  -p  H-  ip  <  10) 

511©  PAUSE  1© 

512©  PRINT  AT  3,20+p;  PAPER  5;  1 

MK  c-(co6)  ;  d  $  f  C  J 
5130  PAUSE  10 

514-0  IF  INKEY  $  <  >  ”  f  ”  THEN  GO  TO  5 

S3© 

3150  FOR  i =7  TO  1  STEP  -1 

51S0  PLOT  208,62:  DRAW  IHUERSE  I 

;  INK  i;pf,4B 

5170  BEEP  .05, a;  NEXT  i 

5130  PLOT  203,62:  DRAW  INK  l;pf, 

4.© :  PAUSE  5© 

5130  IF  tl=p  THEN  GO  TO  5300 
5200  PRINT  AT  21,0;  PAPER  2;  INK 
7;"  That  was  good  evasive  acti 
on  ?  " 

521©  PAUSE  100:  PRINT  AT  21,3; "W 
at  eh  out?  An  other  torpedo! FOR 
4=1  TO  7:  BEEP  .05,3:  NEXT  a 
5220  PAUSE  50:  PRINT  AT  21,0; TAB 
31;  "  " 

5230  NEXT  t 

524-0  PRINT  AT  2©,0;  "False  AlarKf* 
Damage  ";u-l;"  Hits" 
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5250  PAUSE  50:  PRINT  AT  20,0; TAB 
31;"  -;TAB  31;"  '* 

5250  GO  TO  250 
5300  REM  hit 

5310  IF  U=1  THEN  PRINT  AT  21,0;” 
a  HIT.**':  BEEP  „S,-5:  PAUSE  50.  P 
RINT  AT  20,6;  "The  ";s«(c3;"  has. 

ejected  all  it's  depth  charges- 
. " :  LET  S«C,3)=0 

532©  IF  U=2  THEN  PRINT  FLASH  1; 
INK  7;  PAPER  0;  BRIGHT  1;AT  21,0 
;s$(c);  **  has  been  tDsli" 

5330  LET  U=U+1;  PAUSE  100 
534-0  IF  If  =2  THEN  NEXT  t 
5350  PRINT  BRIGHT  l.;AT  SIC, 2 3, St 
c,l>;  INK  0;  PAPER  5;  "f~" 

5350  LET  SCC,1J=-1 

5370  FOR  a  =1  TO  0  STEP  -0.1 

5330  SEEP  a , a  *5  - 10 

5320  NEXT  a 

54-00  FOR  a  =1  TO  20.  BEEP  0-0025, 
20:  NEXT  a 
34-10  GO  TO  25© 

3500  REM  submar  i  fire*  in  close  prox 

35 10^ PRINT  AT  21,0;  FLASH  1;  BRX 
GHT  1;  INK  7; "Alert?" 

552©  PAUSE  100 

5530  PRINT  AT  2I,0;s$ic) ;  has  s 
potted  sub?" 

5550  PAUSE  100 
SSS0  GO  TO  250 


5929  GO  TO  9999 
700©  REM  display 

7010  BORDER  4-:  PAPER  5.  INK  1 
RIGHT  ©:  CLS 

702©  FOR  i =0  TO  19:  PRINT 

i;  "i  i ;  i  i  rm  tttttttti  r  r  .• 

©  gr aphi c  '  /  ' 

7030  NEXT  i 

704-0  PLOT  0,15:  DRAW  160,0 


BRIGHT 
REM  a 


DRAU 


0, 16© 

7050  REM  mines 

70S©  LET  m =FN  r { 10) +10 

7070  FOR  i  =1  TO  H>  .  LET  J»X  =FN  r  11 

9):  LET  J»y  =FN  r  1 19)  :  IF  ATTR  (J»y 

,»X)  >64.  THEN  PRINT  AT  »y,»x;"0** 

7075  NEXT  i 

70S0  REM  Ships 

7©90  FOR  a=l  TO  6:  PRINT  AT  S (a , 
2), sea, 13;  ouer  i;  bright  i;  pap 
ER  7;  INK  a-±;d*ra.3:  NEXT  a 
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7100  PRINT  RT  0,51;  FLASH  1; "SU5 
SEAR CH";  FLRSH  0;  RT  1,21;  "CONDI 
T ION" ; RT  2,21;  PRPER  4; "GREEN" 
7110  REM  periscope 
7120  CIRCLE  208,102,40 
7130  FOR  p  =4-0  TO  0  STEP  -1 
7140  PLOT  208-P,  105:  DRRU  P»2,0, 

p  "T* 

7150  NEXT  p 

7160  FOR  i =0  TO  9:  PRINT  OVER  1; 
RT  4-  +i  ,25;  "  +•  "  :  LET  i  =i  +  Ci  =3J  ;  H 
EXT  i 

7170  PRINT  DUER  1;RT  3,21;"+++++ 

+  4-  +  +  +  ** 

71S0  RETURN 

3©0©  REM  instructions 

3©1©  BORDER  1:  PRPER  5:  INK  1 :  B 

RIGHT  1:  CLS 

S020  DIM  S$ (6,15)  :  DIM  S  < S , 3 1  :  D 
IM  ittlL  LET  U=0:  LET  ial:  LET 
d  $  =  REM  graphic  b,c(c,c 

?  -3f  3 

303©  FOR  a  =1  TO  5:  BEEP  .1,-3:  P 
RINT  RT  1,9;  INK  2;  INVERSE  i  ;  "S 
UB  SEARCH":  BEEP  .25,3:  LET  i =1 ~ 
i :  NEXT  3 

304-0  INPUT  BRIGHT  1;  "Do  you  want 
to  read  instructions  (y/rd?  *';i 

$ 

3050  IF  THEN  GO  TO  S2I0 

306©  FOR  a  =1  TO  6:  RERD  p$:  READ 
a  $ 

3070  PRINT  RT  3,0;p$'''a$ 

3030  DIM  b$fLEN  p$l  ;  DIM  t $ VLEN 

a  $3 

3090  INPUT  "Press  FLRSH  1;  *'EN 

is=.R";  FLRSH  0;  '*  to  continue, 

LINE  P* 

3100  PRINT  RT  3,0; b$ ' ' ' t $:  NEXT 

3110  IF  p  $  =  "n "  THEM  GO  TO  B210 
3120  IF  p$<>" y”  THEN  INPUT  "DO  y 
c«u  want  to  name  your  own  flee 

t?  Answer  (y/n)  ";p$;  GO  TO  811& 

3130  REM  rename  ships 
314.0  POKE  23653,3:  RESTORE  9300* 
BORDER  4-:  PRPER  5;  BRIGHT  0:  CL 


31S0  FOR  a  =1  TO  6 : 
3160  PRINT  RT  0,0;** 
u  liKe  to  caii"'c$; 

:  INPUT  n$ 


RERD 

What 

t  « 


c$ 

w  o  u  l  d 


y  o 

<  f 
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3170  IF  LEN  n$>15  OR  n$  =  ””  THEN 
input  "No  you  can't  have  that.tr 
y  again ";n$:  GO  to  8178 
3130  LET  S$la.1=n$ 

3130  PRINT  PAPER  S-a;  INK  a-ljflT 
0; n$; "  next  a 

3ii©©  POKE  S36S3,©:  GO  TO  8230 
3210  rem  name  ships 

3220  RESTORE  9310:  FOR  a=l  TO  6- 
RERDc $:  LET  £$(a) =c$:  NEXT  a 
o=l30  FOR  i  =1  TO  6:  READ  d:  LET  S 
'x  1.1  *  7i  -1 :  LcT  S  f  i  ,2J  =28 :  LET  St 
i,3)=d:  NEXT  i 

324-0  LET  sx=FN  r  f 20.)  -1;  LET  sy=F 
N  r  f£0.1  -1.-  LET  sd=FN  r  120.) 

LET  PC  =FN  bO  ;  LET  nb=0:  RE 


£  URN 
3000  REM  Data 

REM  C'efine  graphics 
§§2®  FOR  c-1  TO  14- .  READ  C  * 

9®30  FOR  b=0  TO  7:  READ  btT  POKE 
USR  C$+b,bt:  NEXT  b 
904-0  NEXT  C  ;  RETURN 

9‘0Sfl  DATA  "  ,0,3,3, 12  »  2-3 , 227 , 22 
S,0:  REM  patrol  boat 
3060  DATA  "b",16,16,59,186,255,£ 
=5,126,-0;  REM  battle  CfUi  £Cf 
^070  DATA  "C-,0,3,3,204.,92,255,2 
= 4- ,  0 ;  REM  frigate 

3030  DATA  "  d  "  ,237,74-,  4-4-  ,31, 24-3 , 5 
2,82,14.5:  REM  explosion 
3090  DATA  ”e"  ,  0,4-0, 4-6, 220,30,  226 
, 20 , O ;  REM  mine 

9200  DATA  " f" , 255 , 128 , 128 , 128 , 12 
8,128,128,128:  REM  grid 


POKE 


3110 
EM  -1 
3220 
REM 
3130 
REM 
314-0 
REM 
315© 
232 : 
3160 


DATA 

DATA 

DATA 
dice 
DATA 
dice 
DATA 
REM  t 


,0,0, 2, 2, 7, 2,1,0: 


,0,0,0,0,224-  ,0, 


'*  i  *•,0,0,0, 24-  ,  24-  ,0,0,0 
no  -  i  ____ 

••  J  **  ,  0 , 96 , 96 ,0,0, 6, 6,0 
no  .  2  .  „ „ 

"ft**  ,3,3, 0,24-, 24-, 0,232 
dice  no. 3 


,6,0 


3160  DATA  **  l"  ,0,102,102,0,0,102, 
202,0:  REM  dice  no.4  _ 

917©  DATA  ,  195, 195, 0,24-,  24-,  0, 

135,195:  REM  dice  no.5  _ 

3180  DATA  **n  ”,  102, 202,0, 102, 202, 
S.102,102:  REM  dice  110.6 
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3190  0RTR  "You  control  a  fieet  o 
r  warships  consisting  of.-i  satti 
e  cruiser ,  3  Patrol  vessels  and 
s  frigates.” 

9200  DfiTfi  "Your  task  is  to  hunt 
and  destroyan  enemy  submarine  wh 
i ch  has  been  tur king  around  t 
he  shipping  lanes  near  you." 

3210  DfiTfl  “Your  battlecruiser  is 
equipped  with  a  sonar  system 
that  rises  in  pitch  as  it  gets  c 

1  O^fi  T  tO  tf*£6  c  y  ^  ** 

3220  DflTfi  "Each  vessel  can  carry 
only  a  limited  amount  of  dep 

th  charges  and  once  they  are  fir 
ad  the  shipmust  return  to  port.T 
he  limits  are  4-  to  the  battle  c 
ruiser  3  to  each  of  the 

frigates  and  2  to  the  patrol  b 
oats  .  " 


3230  data  "The  submarine  may  tor 
psdo  any  ship  that  is  within  a 
range  of  5  units  and  is  in  tin 
a  either  horizontally  or  verti 
tally." 

324-0  DfiTfi  "The  submarine  moves  o 
ne  unit  each  round  and  may  hi 

de  up  to  a  depth  of  10  units. If 
you  move  1  of  your  ships  direct  l 
y  above  thesubmarine  an  alarm  wi 
u  sound." 


3250  r>RTR  "The  number  of  moves  y 
ou  get  each  round  depends  on  a  ' 
dice '.you  may  move  any  number  o 
f  ships  as  long  as  it  is  within 
the  limits.** 

3260  DATA  "The  computer  wi I i  seq 
uence  through  each  ship  and 

ask  you  i f you  want  to  move  i t.A 
nswer  with  'ENTER'  if  you  don't 
or  use  the  directions  n,s.e,«  or 
'd'  for  dep t.i<  .  " 

3270  DATA  "If  you  navigate  your 
ship  into  another  ship  then  the 
smaller  ship  will  be  sunk. If 
you  crash  into  mine  your  ship  « 
i  1 1  s  i  n  k  .  " 
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92Q0  DATA  "  "/'The  ships  under  y 
our  connand  are-HHS  INUINCISLE  i 
your  flagship)  -HM5  SHEFFIELD  if 

rigale  1)  -RNZS  OTRBO  I  frig 

ate  2)  -RNZS  CANTERBURY 

irrigate  3)  — HMS  BRURNNIR  ip 

atrol  boat  l>  -USS  TITANIC,  tpat 

rot  boat  2)" 

9290  DATA  "-Would  you  like  to  nam 
e  your  own  fleet?  Answer  t y/n) 
3300  DATA  "your  Battlecruiser  f 
lagship) " -"Frigate  1“," Frigate 
",  "Frigate  3",  "Patrol  boat  a.”,” 
atrol  boat  2" 

3310  DATA  "HMS  INVINCIBLE" , "HMS 
SHEFFIELD" , "RNZS  OTAGO” , "RNZS  Cfl 
NTERBURY" , "HMS  BRITANNIA” , "USS  T 
ITANIC-” 

932©  DATA  4-, 3, 3, 3,2,2 

9999  STOP  :  BORDER  7:  PAPER  7:  I 

NK  0:  BRIGHT  0.-  INVERSE  0;  CLS  ; 

STOP 
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Hangman 

This  is  a  superior  version  (by  Raymond 
Blake)  of  the  ever-popular  hangman  game. 
It  has  been  designed  so  you  can  customise 
it  to  your  own  requirements  and  the  word 
list  has  been  left  smell  deliberately  to 
encourage  this. 

To  alter  the  words,  simple  change  the  30 
in  line  70  to  the  total  number  of  words  in 
the  list,  and  enter  the  words  into  DATA 
statements  at  the  end  of  the  program  in 
the  same  fashion  as  lines  1500  to  1520. 
Witty  comments  and  the  scope  for 
alterations  can  make  running  this  game  a 
long-lasting  enjoyable  experience.  It  is 
even  better  if  you  can  get  a  friend  to 
change  the  word  list  for  you,  so  you  don't 
know  what  the  words  are.  As  stated  in  line 
20,  CAPS  LOCK  must  be  engaged  before 
running  the  program. 

20  REM  ENGAGE  CRPS  LOCK 

BEFORE  RUHHIN& 

25  LET  F=0:  RRNDBMXIB 

BO  BORDER  S.  PRPER  T.  INK  0.  C 
l_S  :  RESTORE 

4-0  PRINT  ST  &. 7 ; "SPECTRUM  HRffB 

mrn“  ;  ink  2 ;sr  - - 

•  * 

SO  XF  F=0  THEN  PRINT  RT  *3 ,  0  i  "H 
e  ip  *  These  asdsen  u  hang  »e**# 
RT  5/1; "i f  you  can't  guess  their 
word*** 

55  XF  F=1  THEN  PRINT  RT  3/0; "O 
h  no ,  now  they  went  to  hens  ' 

'“friend!  You've  got  to  help  hira 

V  ft 

60  LET  U  =0 :  LET  W4="" :  LET  0=0 


155 


70  FOR  1  =  1  TO  XNT  IRND*3©*1.*  : 
RERD  R$:  NEXT  I  ^  _ 

75  FOR  I  =  -23  TO  30.  SEEP  .-82,1 
:  NEXT  J 

30  LET  L  =L£N  H$:  LET  B$=" - 

- "  (  TO  Li 

9©  PRINT  RT  12,3;  INK  2; 

10©  PRINT  AT  3,-0;  INK  1;  “Enter 
your  guess" 

12©  INPUT  C$:  IF  LEN  C-$  -J  >  1  RND 
LEN  C$  >L  THEN  GO  TO  120- 
130  IF  C$  <  *'  R ‘ 1  OR  ‘  THEN  GO¬ 

TO  12© 

14©  PRINT  RT  3,0;” 

*» 

150  IF  LEN  C!$=l  THEN  GO  TO  13© 
16©  IF  C$=R$  THEN  LET  S$=C4- 
17©  IF  C*<  >fi|  THEN  LET  W=L 
175  GO  TO  -SO© 

13©  LET  U=©;  FOR  1=1  TO  L :  IF  R 
* ( I '  =€$  THEN  LET  3$  ill  =*C$ 

IS©  IF  THEN  LET  H=U±1 

135  NEXT  X 

20©  PRINT  RT  12,-3;  INK  2;  B$:  IF 
U=L  THEN  LET  0=0*1.  GO  SUB  7304- 
C  *20 :  SEEP  , 6 , S  *  i  10 -C > -25 .  LET  W 
*«U*+fC$  RND  LEN  CSf=l) 

210  IF  WoL  THEM  FOR  1=10  TO  30 
:  BEEP  ,02,1.  NEXT  I 
220  PRINT  RT  17,0; "Wrong  letter 
S” :  PRINT  RT  13,2;  INK  4; U$ 

240  IF  R $  =B $  THEN  GO  TO  30© 

250  IF  0=1©  THEN  GO  TO  500 
26©  GO  TO  I©© 


5©0  PRINT  RT  3,-0;  INK  3;  ~  OUChf 
Nex  t  t  i  me  YOU  want  he  Ip  '  "Don 
't  cose  running  to  se ,  moron*" 
520  FOR  1=20  TO  -3©  STEP  -1.  BE 
EP  ,©2, I;  NEXT  X;  GO  TO  650 
60©  PRINT  RT  3,0;  INK  *3;  "  Thank 
s  very  much.  Remind  me  I  "v  "OH»e 
you  a  large  drink,  partner f" 

620  FOR  I  =—20  TO  3©.-  SEEP  ,02,1 
:  NEXT  X 

65©  PRI*4T  RT  10,2; 
ord  was  : " ; RT  12 , 3; &$ 

66©  PROSE  12© 

63©  LET  F*l:  GO  TO  3© 

300  FOR  0=1©  TO  12:  PLOT 
DRfiU  30,0:  NEXT  O 


NK  1; "The  w 


15© , O. 
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Si©  FOR  0=212  TO  214- ;  PLOT  0,-13 
:  DRRU  8,1©©;  NEXT  O:  RETURN 
328  FOR  0=281  TO  283:  PLOT  0,13 
:  DRRU  18,.  18:  NEXT  O 
838  FOR  0=21  TO  23:  PLOT  £2S ,  O: 
DRRU  18,-18:  NEXT  O:  RETURN 
34-8  FOR  0  =  111  TO  113:  PLOT  211, 
O:  DRRU  -4-5,8:  NEXT  O 
858  FOR  0=281  TO  283:  PLOT  0,-11 
0:  DRRU  18,-18:  NEXT  O:  RETURN 
368  PLOT  171 , 118:  DRRU  8,-28:  R 
ETURN 

388  CIRCLE  171,-33,7.  PLOT  162,3 
5:  PLOT  173,35 

898  PLOT  169,38:  DRRU  4-,8,,5*-P 
I :  RETURN 

988  FOR  0=178  TO  172:  PLOT  0,75 
:  DRRU  8,-14-:  NEXT  O:  RETURN 
928  FOR  0=78  TO  72:  PLOT  162,0; 
DRRU  -18,4-:  NEXT  O:  RETURN 
94-8  FOR  0=78  TO  72:  PLOT  173,-0: 
DRRU  18,4-.  NEXT  O :  RETOPM 
968  FOR  0=SS  TO  62:  PLOT  171,0: 
DRRU  -7,-18:  NEXT  O:  RETURN 
938  3— OR  0=52  TO  32:  PLOs  .±.71, 0: 
DRRU  7,-18:  NEXT  O:  RETURN 
1588  DRTR  "  ISOTOPE"  ,  "POKER"  ,  "PLR 
NET"  ,  "SPHERE"  ,  "FRLLRCV"  ,  "TRIUMPH 
" , "KRNGRROO" , "ATTRIBUTE" , "DERDLI 
NE" , "ROUTE" 

1518  DRTR  " HOTEL " , " ORLBXY" , "UN XU 
ERSE"  ,  "MIR ROE"  ,  "BRIMSTONE"  ,  "OUXU 
ER" , "COLOUR" , "RRXNSOU" , "LAUGH" , " 
U IS JON" 

1520  DRTR  "SLRTE" , "USHERETTE" , "F 
ELLOU"  ,  "PRINTER"  ,  "COMPUTER"  ,-  "PCS. 
DER" , "0IUISIOM" , "MRSRZINE" , ‘HUGE 
T" , "JUMPER" 
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SPACE  GAMES 
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Stellar  Evade 


This  tiny  program,  written  by  Graham 
Charlton,  produces  a  surprisingly 
entertaining  game.  You  use  the  ”zn  and  "m" 
keys  to  move  left  and  right  to  dodge  the 
asterisks  coming  up  at  you  from  below. 
(Note  that  the  odd  thing  after  the  second 
equals  sign  in  line  90  is  an  V.) 


10  BORDER  2: 
20  LET  3=10: 


PPPER  2.  CL  5 
LET  t=JS:  LET  C 


LET  t  =0 

30  POKE  23632 ,0 
4-0  LET  t=t+l 
30  PRINT  RT  21,31;-" 
60  FOR  X  =1  TO  2 
70  INK  7;  PRINT  RT  C 


60  NEXT  Z 

30  LET  UWKfY*a"»"  RHD  b<3 

©J  -  V  INKEYS  ~“Z  "  RND  b>I.* 

100  IF  SCREENS  f3,b.>="*"  THEN  B 
EEP  2,6:  PRINT  “YOU  f-fored  " ;  t  : 
FOR  X  =1  TO  200:  NEXT  X:  RUN 
11©  PRINT  RT  3 , b; 

120  GO  TO  30 
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Space  Trek 

Skilled  programmer  David  Perry  wrote  this 
program  for  the  book.  In  this  game,  you 
fly  through  each  galaxy,  avoiding  the 
stars,  aiming  to  shoot  all  the  enemy  alien 
battle  cruisers.  Once  you've  finished,  you 
must  leave  the  galaxy  via  the  Black  Hole 
to  penetrate  into  deeper  space. 

Full  instructions  are  included  within  the 
program.  You  move  around  using  the  cursor 
keys,  with  "0"  to  fire.  The  pound  signs 
should  be  entered  as  hash  (#)  symbols. 


i 

REM 

2 

REM 

SPACE  TREK ! 

3 

REM 

£££££££££££ 

4 

REM 

er 

W 

REM 

COPYRIGHT 

6 

REM 

DAVID  PERRY 

7 

REM 

1983 

B 

REM 

o 

POKE 

23658,8:  LET 

r M  N$ < NUM+ 1 , S ) :  DIM  N( NUM+ 1 ) :  FO 
R  N=1  TO  NUM:  LET  N <N> * ( 1000- ( 10 
0*n )  )  !  LET  IM*  ( N )  *  "  SPECTRUM  " :  NEX 
r  N:  GO  SUB  2000:  LET  N*<1)="DAV 
E  OK ! " :  LET  N ( 1 ) =5000 

10  BORDER  Is  PAPER  0:  INK  7:  B 
RIGHT  1:  CLS 

20  LET  6AL=1:  LET  B0N=3:  LET  S 
C=0:  LET  LEV=3:  LET  MEN=3 
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30  PRINT  AT  0,0;  INK  5;  BRIGHT 

0;  " 

AT  21,0;  " 

II 

35  FOR  N=1  TO  3:  PRINT  INK  5; 

AT  N , 0 ; "  " ; AT  N . . .  NEXT  N: 

FOR  N=4  TO  20:  PRINT  INK  5: AT  N 
,0;"  " ; AT  N,31;"  NEXT  N 

40  IF  MEN=0  THEN  GO  TO  1000 

42  FOR  n»l  TO  LEV 

45  LET  X=  INT  <RND#14)+6:  LET  Y 
-I NT  (RND#29) + 1 :  IF  SCREEN*  (X,Y 
)<>'•  "  THEN  GO  TO  45 

50  PRINT  AT  X ,  Y;  INK  2; "K" 

51  NEXT  N 

54  FOR  J=1  TO  BON *2 

55  LET  X=INT  (RND*14)+6:  LET  Y 
=  INT  <RND*30>+1:  IF  SCREEN*  <X„  V 
)<>"  '*  THEN  GO  TO  55 

60  PRINT  AT  X ,  Y;  INK  6;”*'' 

70  NEXT  J 

75  LET  X=INT  (RND#14)+6:  LET  Y 
-INT  <RND*29>+2:  IF  SCREEN*  <X,Y 
)<>"  "  THEN  GO  TO  75 

80  PRINT  AT  X , Y;  INK  7; "O" 

90  PRINT  AT  1,3;  INK  4; "SHIPS 
LEFT:";;  FOR  N-l  TO  MEN:  PR I NT 
INK  7: "a" NEXT  N:  PRINT  AT  1,1 
9;  INK  6; "SCORE: SC 
100  PRINT  AT  2,8;  INK  3; "HIGHES 
T  SCORE : " ; N (1 ) :  PR I NT  AT  4,0;  IN 
K  5;  " 


105  PRINT  AT  3,4;  INK  2; "GALAXY 
: " ; GAL :  PRINT  AT  3,14;  INK  6; "KL 
INGONS  LEFT:": LEV 
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110  LET  D-2:  LET  A«5:  LET  B®1 
120  PRINT  AT  A, B; "  " 

130  IF  D- 1  THEN  LET  A=A-1 
140  IF  D=2  THEN  LET  B=B+1 
150  IF  D=3  THEN  LET  A=A+1 
160  IF  D=4  THEN  LET  B=B-1 

163  IF  B< 1  THEN  LET  B»30 

164  IF  B >30  THEN  LET  B=1 

165  IF  ACS  THEN  LET  A-20 

166  IF  A >20  THEN  LET  A =5 

167  IF  LEV-0  THEN  BEEP  .01,50: 
IF  SCREEN*  (A, B)="0"  THEN  LET 

B0N*B0N+2i  LET  GAL-GAL+1 :  PRINT 
AT  3,11; GALs  GO  SUB  800:  LET  LEV 
-BON :  GO  TO  40 

170  IF  SCREEN*  <A,B)<>"  "  THEN 
FOR  1-7  TO  0  STEP  -Is  PRINT  AT 
A, B;  INK  I ; " X " :  BEEP  .02,1*7:  NE 
XT  I;  GO  SUB  800:  PRINT  AT  1,138 
"  LET  MEN-MEN- 1 :  FOR  N=1  T 

0  MEN:  PRINT  AT  1 , 13+N; "a" :  NEXT 
N:  GO  TO  40 

180  IF  I NKEY*= " 7 "  THEN  LET  D=1 
190  IF  INKEY*- "8"  THEN  LET  D-2 
200  IF  INKEY*="6"  THEN  LET  D=3 
210  IF  INKEY** "5"  THEN  LET  D-4 
220  IF  D=1  THEN  PRINT  AT  A, B; 
INK  6; "a" 

230  IF  D=2  THEN  PRINT  AT  A.B; 
INK  6; "b" 

240  IF  D=3  THEN  PRINT  AT  A, B; 
INK  6 ; "c" 

250  IF  D-4  THEN  PRINT  AT  A, B; 
INK  6; "d" 

255  IF  INKEY*="0"  THEN  GO  SUB 
300 
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260  BEEP  . Q1,D*10:  60  TO  120 
300  IF  D*i  THEN  (3(3  T(3  400 


310  IF  D=2  THEN 
320  IF  L‘)=-3  THEN 
330  IF  D=4  THEN 
340  STOP 


GO  TO  500 
GO  TO  600 
60  TO  700 


400  IF  A=5  THEN  RETURN 
405  FOR  N~A— 1  TO  5  STEP  -1 


410  LET  A$=SCREEN$  <N,B> 

420  IF  A$~"K"  THEN  LET  l_EV=LEV 
-Is  PRINT  AT  3, 28; LEV;”  " :  LET 
SOSC+lOO:  PRINT  AT  1.25; SC:  FOR 
1=7  TO  0  STEP  -Is  PRINT  AT  N.B; 
I NK  I ; " K " :  BEEP  .01,1*7:  NEX T  I 
:  FRINT  AT  N.B;"  NEXT  N 
430  IF  A*“***"  OR  AT  *  "O"  THEN  B 
EEP  .03,10:  LET  N=6:  RETURN 
440  PRINT  AT  N,B;("f"  AND  N>5) : 
BEEP  .01, N 

450  PRINT  AT  N,B;("  "  AND  N>5)  : 

NEXT  N:  RETURN 

500  IF  B=30  THEN  RETURN 

505  FOR  N=B+1  TO  30 

510  LET  A*=SCREEN$  <A.N> 

520  IF  A$="K "  THEN  LET  LEV=LEV 
-Is  PRINT  AT  3. 28: LEV;"  LET 

SOSC+lOO:  PRINT  AT  1.25; SC:  FOR 
1=7  TO  0  STEP  -Is  PRINT  AT  A, N; 
INK  I ; " K " :  BEEP  .01,1*7:  NEXT  I 
:  PRINT  AT  A , N ; "  " :  NEXT  N 
530  IF  A$="  * "  OR  A«="0"  THEN  B 
EEP  .03.10:  LET  N=30:  RETURN 
540  PRINT  AT  A,N;C"«s"  AND  N<31) 

:  BEEP  . 01, N 

550  PRINT  AT  A.N; <"  "  AND  N<31) 

:  NEXT  N:  RETURN 
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600  IF  A=20  THEN  RETURN 
60S  FOR  N:sA+ 1  TO  20 
610  LET  A*=SCREEN*  <N,B) 

620  IF  AT="K"  THEN  LET  LEV=LE.V 
-Is  PRINT  AT  3, 28; LEV;"  " s  LET 
SOSC+lOO:  PRINT  AT  1,25; SC:  FOR 
1=7  TO  0  STEP  -Is  PRINT  AT  N, B; 
INK  I ; "K" ;  BEEP  .01,1*7:  NEXT  I 
:  PRINT  AT  N,B;“  " :  NEXT  N 
630  IF  A$=" *"  OR  AT:="Q "  THEN  B 
EEP  .03,10:  LET  N=20:  RETURN 
640  PRINT  AT  N , B ; ("f"  AND  N<21 ) 

:  BEEP  . 0 1 , N 

650  PRINT  AT  N, B;  < "  "  AND  N<21) 

:  NEXT  Ns  RETURN 
700  IF  B=1  THEN  RETURN 
705  FOR  N*B-1  TO  1  STEEP  -1 
710  LET  A*=SCREENf  (A.N) 

720  IF  AT="K"  THEN  LET  LEV=LEV 
-Is  PRINT  AT  3, 28; LEV; "  ":  LET 

SOSC+lOO:  PRINT  AT  1,25;  SC:  FOR 
1=7  TO  0  STEP  -Is  PRINT  AT  A, N; 
INK  I ; "K" :  BEEP  .01,1*7:  NEXT  I 
:  PRINT  AT  A , N ; "  " :  NEXT  N 
730  IF  AT ~ "  OR  AT="0"  THEN  B 
EEP  .03,10:  LET  N=1 :  RETURN 
740  PRINT  AT  A,N;("e"  AND  N>0)  : 
BEEP  . O 1 , N 

750  PRINT  AT  A , N; <"  "  AND  N>0) s 
NEXT  N:  RETURN 

801  LET  B=2:  FOR  N=20  TO  5  STEP 
-1 

810  BEEP  . 02, N*2:  PRINT  AT  N,0; 
INK  5;  " 

II 

820  NEXT  N 
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830  PRINT  AT  3,31;  INK  . .  P 

RINT  AT  21, 1 1  INK  5;  " 

"i  RETURN 

1000  PRINT  AT  10,4;  PAPER  7;  INK 
0;  BRIGHT  0; "  YOU  HAVE  SCORED  " 

.  cj£  .  H  _  H 

1010  BEEP  .1,24:  BEEP  .1,23:  BEE 
P  .84,24:  BEEP  .5,21:  BEEP  .5,20 
:  BEEP  .85,21 

1500  IF  SC<  =N (10)  THEN  PAUSE  50 
:  GO  TO  1540 

1502  LET  NUM=11:  IF  SO=N(NUM>  T 
HEN  INPUT  "ENTER  8  INITALS!  ";P 
t:  IF  LEN  P*>8  THEN  GO  TO  1500 
1505  IF  SO"M  <NUM)  THEN  LET  I'KN 
UM ) =SC :  LET  N*  <NUM)=F* 

1510  FOR  A-l  TO  (NUN-1):  LET  B*=; 
N*<A>:  LET  C*«N*<A+1)«  LET  B=N (A 
):  LET  C-NCA+l):  IF  8<C  THEN  LE 
T  N ( A) =C:  LET  N(A+1)=B:  LET  N*(A 
)  ~C* :  LET  N$  (A+1)»B* 

1520  NEXT  A:  FOR  N=1  TO  NUM-1:  I 
F  N ( N ) < N ( N+ 1 )  THEN  GO  TO  1510 
1530  NEXT  N 
1540  CLS 


1550  PRINT  AT  2, 4; "H  A  L  L  OF 
FAME  !  " 

1560  PRINT  AT  3, 4; "============= 

1580  FOR  N=1  TO  NUM-1:  PRINT  AT 
N+5 , 7 ;  I NK  6 ; " ( " ;  INK  2;N;  INK 
6;")"; AT  N+5, 12;  INK  7;N(N):  PRI 
NT  AT  N+5,  17;  INK  5;  Nf.  (N>  :  NEXT 
N 
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1590  PLOT  0,0:  DRAW  255,0:  DRAW 
0,175:  DRAW  -255,0:  DRAW  0,-175: 
PRINT  AT  17,8;  PAPER  2;  INK  7;" 
PRESS  ANY  KEY!  " :  LET  PO 
1600  LET  1=1+1:  IF  I >7  THEN  LET 
1=0 

1610  PRINT  AT  2,4;  INK  I;*'H  A  L 
L  0  I-  FAME  !  " 

1620  BEEP  .01, I #7:  PAUSE  2:  IF  I 
NKEY$-- " "  THEN  GO  TO  1600 
1630  60  TO  10 

2000  BORDER  1:  PAPER  0:  INK  7:  B 
RIGHT  1:  CLS 

2030  PRINT  AT  2, 6| "SPACE  T 
R  E  K  !  " 

2040  PRINT  AT  3, 6;  '•£££££££££££££ 
£££££££ " 

2050  PRINT  AT  6,1; "CONTROL  YOUR 
SPACESHIP  USING  THE  CURSOR  KE 
YS  AND  'O’  TO  FIRE.  THE  OBJ 

ECT  OF  THE  GAME  IS  TO  PASS  TH 

ROUGH  ONE  GALAXY  AFTER  ANOTHER 
WEAVING  BETWEEN  THE  STARS  TO 
SHOOT  THE  ENEMY" 

2060  PRINT  "  KLINGON  BATTLE  CRUI 
SERB. WHEN  THEY  ARE  ALL  DESTRO 
YED  YOU  CAN  LEAVE  VIA  THE  B 

LACK  HOLE. " 

2065  RESTORE  2085:  FOR  C~0  TO  7* 
READ  HAT:  POKE  USR  "A"+C,HAT:  N 
EXT  C 

2070  PRINT  :  PRINT  "  YOU  'a' 
BLACK  HOLE  INK  7; "O’" 

2080  PRINT  :  PRINT  "  STAR  ’" 

;  INK  6;"*";  INK  7;"’  KLINGON  ’ 
";  INK  2 ; " K " ;  INK  7;"’" 
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2081  PRINT  :  PRINT  TAB  2;  PAPER 

2;  INK  7?"  PRESS  A  KEY  TO  COMMEN 
CE 1  " 

2082  PLOT  0,0:  DRAW  255,0:  DRAW 
0 , 1 75 :  DRAW  -255 , 0 :  DRAW  0,-1 75 

2084  FOR  C=0  TO  39:  READ  HAT:  PO 
KE  USR  "B"+C, HAT:  NEXT  C 

2085  DATA  24 , 36 , 36 , 36 , 60 , 90 , 1 02 , 
66 

2086  DATA  0,224,94,49,49,94,224, 
0 

2087  DATA  66 ,102, 90 , 60 , 36 , 36 , 36 , 
24 

2088  DATA  0,7,122,140,140,122,7, 
0 

2089  DATA  0,0,0,255,255,0,0,0 

2090  DATA  24,24,24,24,24,24,24,2 
4 

2110  LET  1=0 

2120  LET  1=1+1:  IF  I >7  THEN  LET 
1=0 

2130  PRINT  AT  2,6;  INK  I; "S  P  A 
C  E  T  R  E  K  !  " 

2140  BEEP  .01, 50- <1*7) :  PAUSE  2: 

IF  INKEY$=" "  THEN  GO  TO  2120 
2150  RETURN 

9998  FOR  N=0  TO  7:  PRINT  INK  N; 

"  " ; :  NEXT  N 

9999  GO  TO  9998 
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Stellar  Probe 


This  is  a  fascinating  game  in  which,  once 
again,  you  patrol  a  sector  of  the  galaxy. 
As  you  might  have  guessed,  there  are 

aliens  at  the  bottom  of  the  galaxy,  and  it 
is  your  task  to  find  them,  and  blast  hell 
out  of  them. 

The  program  shows  a  map  of  the  current 
Galactic  Sector,  along  with  its  important 
features.  You'll  quickly  learn  how  to  read 
the  map  once  you  run  the  game  a  few  times. 

At  any  time  you  can  move,  scan  or  fire. 

Your  scanners  operate  in  two  ways.  The 

short  range  scanner,  which  looks  into  the 
eight  squares  immediately  surrounding  you, 
consumes  little  energy.  The  long  range 
scanners  look  two  squares  in  a  single 
direction,  and  use  up  more  energy. 

The  game  ends  if  you  land  on  top  of  an 
alien  ship.  The  aliens  do  not  move  around 
during  a  single  game.  You  have  limited 
reserves  in  your  energy  bank  and  must  try 
and  kill  as  many  aliens  as  you  can  before 
your  energy  is  totally  depleted. 

An  alien  (and  the  program  Invents  names 
for  the  aliens  for  each  game}  can  only 
shoot  back  after  you  have  fired  your  laser 
at  it  (thus  revealing  your  position]  and 
if  the  alien  is  within  a  single  square  of 


170 


you.  Damage  to  your  ship  from  an  accurate 
alien  shot  is  shown  in  energy  terms  (that 
is,  energy  is  drained  from  your  bank).  The 
game  continues  until  you  land  on  en  alien 
ship,  or  run  out  of  energy.  Tim  Rogers 
converted  this  program  from  an  original 
program  of  mine. 


1®  BORDER  0.  RANDOMIZE 
2®  INK  6 
30  PhPER  ® 

4-@  CLS 

5©  GO  SUB  £00© .  GO  SUB  £00© 
7‘3  GO  SUB  3000 
11©  GO  TO  7© 

1010  DIM  g (10,10) 

102®  DiH  £-  ( 10,  jL&j 

105©  FOR  3=1  TO  2© 

1®6@  LET  Q  (FN  3  fXJ  ,FN  3  CXJ  3  =1 

1 IS©  NEXT  3 

111©  LET  q (U,p 3=2 

112©  LET  S(U,p3=2 

1125  LET  r  n  =FN  a  (S3 

1130  LET  f  n 1 =FN  3  (S3 

1 135  LET  Z  $  -FN  S  $-  l  3 

1 14-©  RETURN 

1510  LET  b  L  =FH  3(203 


152© 

153® 

154.® 

2005 

201© 


BEEP  .1, bi 
BEEP  . 1 , fa t -12 
RET!  !^>N 

DEF'f N  3  t X 3  = I NT  ( RND *X 3 
DEF  FN  3$n  =X$(rn,  TO  t 
l «  3  4-y  $  c  f  n  i  ,  TO  ttrnl ,  23  3 
2©15_  LET  X=10  =  ^ 

LET  3$  =  ”  Z 
DIM  C  $  CS , S3 
for  3=1  TO  S 
READ  Cf (si 
NEXT  3 
LET  3  t  =0 

DIM  b < 6 5  .  O XM  C  < S i 


>©2© 
204-© 
210© 
2 1 1© 
212® 
213© 
214-© 
215© 


+  1 
c  rn 


216© 
217© 
21S© 
2  IS© 


FOR  a  =1  TO  s 

READ  b ( a  3  :  REfiO  C  (23 

NEXT  a 

LET  e  =1008+2008*RND 


2200  D IH  X$ (I®, 33 
221©  DIM  y  $  f 1© , S 3 
2215  DIM  t  ( S , 2  3 


J 
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2330.  FOR  a  =1  .TO  S 

2335  REfiD  0$:  LET  t (3,1) =LEM  0$ 
333©  LET  X$  13  3=0$ 

2235  READ  o  $ .  LET  t!a,25=LEN  O  * 
2£4S  LET  (S  >  —O  ^ 

2250  NEXT  a 

2260  DIM  S$Ci0,H) 

2270  FOR  a  si  TO  =9 
2230  LirT  rn  =rN  a  C8> 

esse  let  r n i =fn  a  cs) 

2300  LET  s$Ca)=FN  3  $  O 
0310  NEXT  a 
0300  FOR  <3—1  sG  3 
0330  FOR  b=0  TO  7 
034-0  RERD  C 

2358  POKE  USR  CHR|  CI43ia}  -l*b,  C 
0300  NEXT  b:  NEXT  a 
2i9i  RETURN 
301©  CL 5 

300©  PRINT  P;T  0,8;  *'5THR 
3030  GO  c>L?S  ib0O 
3350  PRINT  "MRP 
3050  GO  SUB  1500 
3030  PRINT  **  RERD -OUT" 

3090  GO  SUB  1580 
3100  FOR  a  =1  TO  30 
3110  PRINT 
3130  NEXT  a 
3148  GO  SUB  ISO© 

31bM£*  PRINT  R  i  3  *  8;  **  12245b7a90 *a 

3150  FOR  a  =1  TO  I© 

3178  IF  a <10  THEN  PRXMT  a; ;  GO  T 
O  3198 

3 130  PR  JNT  " 0 " ; 

319©  FOR  h~l  TO  1© 

3195  LET  b$=a£  Cs  fa  ,  b>  +1.) 

3000  FRTHT  IMUERSE  X;b$; 

3285  IF  b$<  > "  "  THEM’  BO  SUB  1500 

3  O’  1  ©  Me  XT  b 

3015  IF  a  <10  THEN  PRINT  3;  GO  TO 
3030 

3000  PRINT  "0" 

3030  NEXT  a 

3248  PRINT  "  1234567898" 

3518  PRINT  RT  5/14;  INK  O,  PRPER 
7;  flrsh  1;  n£ner§9  Banks  **;  INT 

e 

3500  PRINT  RT  S„14-; 

353©  FOR  a  =1  TO  e/288 
354-0  PRINT  INK  5;^; 

3558  NEXT  a 
3  5b8  GO  ISO© 
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t'1  f* f4 f1  f1  •f4, ■f*’ f* "  {*■  f4 f"1  'P1  f'1’ IfMT,)  f.  f !,  fx Q rj 0)  fji (j) ’" ■  Q "i  (J Em  0)  :(JQ 

(Ji  cj  cn  tfl  cn  in  cn cn cn  01  oi  oi  ro  ro  r  r  r  r  s  r  r  ©  r  -i  c  r  a  ©  n  ®  ©  cn  ©  rji cn  rji  c  cn  a»  cr<  ^  m  :  a>  ai  oi 

ifl  oj^ounf-tiifOR  R©R©©0)‘vjscri  o)  ro ■•.)  r v> q o ro r oi r f* c © ro'- ■  r  s  ©  ro  in-  ^ cn %i 

©O©©©0©©©yK®©®©©©©ili©  ©  ©  ©  :«E©  :® &  ©©©01©*  ©©  :©R©a©ai  *•©© 


IF  e  <  X  THEN  GO  TG  4S0O 
XF  3t>0  THEN  PRINT  BT  8^1*.; 
£  i  *  s  hips'1  ;  hT  3  t  li;  :tdt^  t  f  oytcf 
t :  GO  SUg  15O0 
PR  I  NT  RT  10,14;  “Ship  is  lOC 

*> 

PRINT  RT  11,14; Mat  sub-quad 

PRINT  RT  1R  .  14- ;  FLBSH  1  ”  Tts 

rj  ?  ;  p  ;  as  j-  ** 

GO  SUB  1500 

PRINT  RT  13>14-:':in  !,;s$  iINT 

P/10+.5)  J  ;BT  14-;  14- ;  “sector” 
PRINT  RT  lo,0, 

GO  SLIB  1S00" 

GO  TO  4500 
GO  SUB  5000 

PR xHI  F l ;  "Energ y  b a n  R s 
Pletet y  d r3inedu 
PRINT  ,5ue  Rilled  " ;  3  t  ;  **  ali 

PRINT  ,  ,  c  $  CFN  a  IS  J  \i  }  "  :  DO 
an!  to  be1,  "  Coptu’ii t  d d i n  , 

IF  INKEYiO””  THEN  GO  TO  4-1 

XF  INKEY *  =  ••“  THEN  GO  TO  *13 

XF  INKEY  $  <  >  “n  ]1  PHD  XHKEV  $  <  > 


PRINT  ,  ,  c  $  CFN  a  (53  3  ;  :  YOU 

U|  £.  5*1  &  f—  £2*  4  * 

~  PRINT™  **  a  bit  of  a  ” ; 

LET  r n =FN  a (81 
LET  rm=FN  a  (S3 
PRINT  FN  a^O 
PRINT  END 
GO  SUB  5000 

PRINT  fiT  16,0;  C$  v FN  a  C5J  3  ;  ,s 
our  order..  Sir?" 

BEEP  ,2,RND150 

PRINT  BT  17, 1£;  *  I  Scan " 

GO  SUB  IS GO 

PRINT  TBS  12;  I!2  Move” 

GO  SUB  1S0O 

PRINT  TBS  12;  *3  Fire" 

GO  SUB  1500 

PRINT  RT  21,0; "Press  1  2  or 
n  your  console" 

L.ET  i  $  =  INKEY  $ 
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6155  GO  SUE  15©S 

6160  PRINT  RT  2I..0;  "Scsnner  off, 
sir?" 

8165  EEEP  .  1  .  RND-S-5© 

5I7S  IF  INKEY$=" ”  THEN  GO  TO  Rl / 
© 
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SIT’S  GO  SUB  1500 

6180  IF  INKE Y$~  ’n‘*  OR  INKEY*»"H" 
THEN  GO  SUB  5000:  GO  TO  5S10 
o 133  bU  TO  450S 

6500  PRINT  RT  18,8;  C  $  iFM  a  CS)  >  ;  " 
:  D1 1  i“  ^  ell  O  O  '  * 

5510'  PRINT  '''north:  1  east:  2  south 
:3  west  :4 ** 

5515  IP  INKEV $<>”"  THEM  GO  TO  05 

652©  LET  i $=INKEYi 
653©  BEEP  -©i.S 

654-0  IF  CODE  i  $  <  4-9  OP  CODE  i$)5£ 
THEM  GO  TO  652© 

6550  LET  R  =  t‘ UfiL  i  $-11*2+1 
6560  LET  2  =  Cg  CU +b  CR  )  *2,p+C  CR  J  *21 
=  11 

6578  IF  1=1  THEN  PRINT  FLASH  1J ” 
positive”:  GO  TO  659© 

656©  PRINT  "negative” 

659©  GO  SUB  150© 

6595  IF  IMKEV $ <  > " ”  THEM  GO  TO  65 

660©  GO  TO  616© 

7002  LET  f l =0 

7005  LET  e =e -50 

70 1©  PR I NT  " Be  Brings. ” 

7015  GO  aUB  1500 
7@20  CIRCLE  4-0  f  24-  ,  16 
703©  PLOT  4-0,24- 
704-©  DR9U  ©  .  16 
7©5©  GO  SUB  150© 

7060  PRINT  RT  16 16;  "@©0” 

706©  PLOT  4.0,24. 

709©  DRAW  16,0 

7100  GO  SUB  1500 

711©  PRINT  RT  16,16; ”09©” 

7130  PLOT  4-0 24- 

714-0  DRAW  0,-16 

7158  GO  SUB  1500 

716©  PRINT  RT  20.,  16;  "130” 

716©  PLOT  48,24 

719©  DRAW  -16 0 

7200  GO  bUB  1608 

7210  PRINT  RT  13 , 14-.;  "270” 

723©  INPUT  "Degrees?  ”; r 

724-0  IF  f  >315  OR  r  <0  THEN  GO  TO 

723© 

725©  LET  r=INT  Cr74-5J+1 
7255  IF  f l =1  THEN  RETURN 
726©  LET  g(U,p)=0 
727©  LET  S  ( U , p  >  =3 
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03  0)  CO  CO  CO  0)  CO  03  CO  CO  CO  01 03  f*  CD CO  0)  03  03 l"  •  03  03  03  03  0)  03  00  03  S3  03  ©  *0  -J  -J  ->J si  -J  -J  \1  •  -  %l  0  *0  -.J 

03  03  03  03  03  03  03  03  03  03  M  H  0 P  -i  r-  p  p  ©  ©  -*  ©  0  ©  C3  ©  ©  ©  l  ©  ©  ©  ©  03  03  0)  0)  0)  0)  03  03 . 0  M  03  03  N 

tOOWOftCJl^UMP©**  Q  03  -'3  MQtOtO  ©©-.JOOlf-f*  0)  0.3  W  F  ©  03  -J  ©  01  ft  Q  ro  TO  -  3  Z  I-”4  ©CO 

©©©©©000©©©  01  ©  ^©©nJOI^Q©©  ©OI0000-0O10Q000QO10-  X©  ©Q 


L-ST*  p  ssp  -r  C  {  *“  1 

IF  9  (u'"p)  <  >  i  THEN  GO  TO  111 

PRINT  RT  RND»£I,0;  FLRSH  1 j 
2;  PSPER  6; "You  have  Landed 
B  J*  ;  2  4  ,  “  ship  !!!!!!*!!!!!!!!• 

*  S  f  'i  I  f  i  t  ta 

’  BEEP  ‘  1  3 

IF  RND>.95  THEN  GO  TO  7310 
FOR  a “1  TO  RND*5 
ROOT  123 , 37 

DR RU  12S-RNDJ255 , 37-RMD ^175 
NEXT  a 
BEEP  .  3  ,  -23 
GO  TO  7320 
LET  f l =1 

PRINT  RT  14..,  1G;  INK  0;  PRPE 
FLRSH  1.;  "RED  RLERT" 

GO  SUB  1500;  GO  SUB  1500 
PRINT  RT  15,0;  C  $  CFN  a  tS)  3  j  " 
irecti on  © f  fire ; " 

GO  SUB  7015 
LET  e =e-100 

IF  3  (u  +  b  (f  i  ,  p  •#. c  (r  )  )  <  >  1  THEN 
TO  3300 
BEEP  1 , 

GO^SUB  5000 

PRINT  C$  CFN  a  C5>  >  ;  **  -  YOU  h 

he  ”  ;i$;  ”  ..si  r  *  ** 

LET  S  (U+b  if  3  ,.ptC  (T  3  3  =4- 
LET  g  (U+b(f  3  ,  p  +  c  if))  =4- 
LET  3t=3t+l 

PRINT  . ,t$(FN  31533,"  -  ShS 

turn" ,"the  red  alert  off,  s 

IF  INKEY*  <>"**  THEN  GO  TO  SI 

IF  INKEY $  =  **•*  THEM  GO  TO  SIS 

GO  TO  11 IS 
GO  SUB  5030 
PRINT  c  $  CFN  a  15)  J  ;•*:** ; 

LET  S  (U  +  b  f  r  )  ,  p  4-  c  C  r  )  )  =3 
PRINT  ••  we  sissed,  iif." 

FOR  a  =©  TO  30 
BEEP  .1,3 
NEXT  3 
BEEP  1 , 35 
FOR  a  =1  TO  5© 

BORDER  RHDS? 

S4-0©  NeXT  a 
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©4.1©  BORDER  © 

©4-20  PRINT  ,  ,  C  $  CFN  3  C53  J  ;  "  :  The 
";z$;"  are"  .."shooting  sscK!!" 
84-30  GO  SOB  1S00 

8450  IF  RND  >  .  6  THEN  GO  TO  370© 
S4-6©  PRINT  "They  HIT  US  SIR!  ?  !  !  " 
34-70  LET  e=e-iS8iRND 
84-S0  GO  TO  Sll© 

8700  PRINT  C  $  t FN  3  (S>  3  :  But  th 

sn  K  the  stars-" 

3710  PRINT  "The  " z  $;  "  missed  us 
872©  GO  TO  311© 

3020  DhTR  "Dr  Socfc" ,"SPOttie","L 
t.  LOO  h  U  ’*  ,  "Cb  e  Cj.  OUt",  "ZU  L  u  "  i 

Go©©  dh i  p  -i, 0, -2,  i ,  ©  ,  i,  i,  i,  i  ,  ©,. 

1  ,  ™  i  »  0  ^  — 1/  “"l#  —  I 

9©4©  DfiTfl  "GlOb"  j  "U  li  an"  .  "Ff  3S  "  . 
"t  toi  d"  ,  "Mesh  "  ,  "ni  K  ”  ,  "Roa"  » **u  lan 
"  ,  "GfUP"  /Tish"  ,  "Kre  it",  "on  "  ,  "Ou 
es" , "tar" , "Coch" . "rane" 

90S©  DftTfl  255 . 165 , 195 , 153 , 153 , 19 
5  165 . 255 

90S©  DfiTH  256.189,219,255.255,21 
9,1-39,255  ... 

9@7©  DP.TR  24-3.152,152,255,4-7,57, 
24-9,223 
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Lunar  Storm 

David  Perry's  LUNAR  STORM  uses 
sophisticated  string-handling  to  provide  a 
mass  of  meteors  and  spaceships  moving 
sideways  on  the  screen. 

Balow  this  is  the  surface  of  the  planet 
McC lari  ana  (named  after  tha  intrepid 
explorer  0.  J.  McClaren  who  discovared  the 
planat  in  2068).  You  have  to  try  and  weave 
your  way  between  these  obstacles,  and  land 
on  one  of  the  three  landing  pads. 

To  simplify  an  extremely  difficult  task, 
you'll  see  you'va  been  provided  with  a 
thrust  button,  to  allow  you  to  high  tail 
it  out  of  there  whan  tha  going  gets  too 
rough.  The  game  uses  lots  of  sound  and 
color,  plus  some  rather  clever  UDG's. 


ENTER  UEUEL.fl  TO  3J 


S-SHIP  LEFT  8-SHIP  RIGHT 
©-THRUST 
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CLiS  :  •  OHIi  T  lit*  wUd 

11  LET  x  =0 :  LET  y  =INT  CRMD*31j 


IS  PRINT  RT  xsy;"  :  PRINT  JRT 
3,*©;  INK  5;a$,;RT  ?,0;a$,;RT  11,0/ 

a$;RT  I5,8;a$/RT  I8,0;a$ 

13  PRINT  RT  5,9;  INK  Sj h$: RT  S 
,©;  b$;  RT  IS.,©;  b$;RT  17\*  ©.;*>$ 

14  IF  I  NT  XMS  THEN  GO  TO  79 

15  IF  SCREEN  $  «x,y)  <>"  s*  THEN 


36; 

PRINT  RT 

x  .*  y 

"A" 

BEEP 

.0I,X*2 

PRINT 

RT  x  ,  y  ;  " 

LET  x 

=X  -f  «  5  :  IF 

IN 

614 

;  LET 

X  =  X  -  »  S  :  L 

ET 

3  i-  =S 

LET  V 
** 

=Y  4-  i  IHKt-Y 

e  >  - 

IF  y  < 

©  THEM  LET  y 

=  31 

SI  IF  y  >31  THEN  LET  y  =© 

2S  IF  X  >13  THEN  GO  TO  TO 

23  IF  SCREENS  t  x  .  U  >  <  >  "  ** 


THEN 


£»*=;  PRTr^y 


32  DRTR  “  C  "  * 
IS , 1S9 , 195 

33  DRTR  "a”, 
23  ,  60  *  0 

34-  DRTfl 
. 90, 189, 1^5 
36  RETURN 

36  FOR  n  —T  T 

37  PRINT  RT 


P  ;1  _|  LL  O  *3©  .»  Jr  2  --  aS 

0 60 ..  i£5  .,171,213,1 
105 ..  189  9©  .,  126 , 126 


U  ms  o  i  cl?--  -  i 

x  y ;  ink_ n ; 
n  S-3 :  BEtcs-*  =s?j-j.&0 


32  NEX i  i  • 

4-©  LET  1=7 

4-1  PRINT  RT  2,8;  INK  s;  ”6  G  U 
RE  : " ; SC 

4-2  PRINT  INK  X;  BRIGHT  8;RT  ©, 
1;  "P  R  E  S  S  R  N  V  KEY!  !  ! 

4-3  LET  1  =  1-1:  XF  I<©  THEN  LET 
1=*? 


4-4-  IF  INKEY$  =  ”  “  THEN  GO  TO  4-2 
4-5  LET  SC-S  :  CLS  :  LET  d  =0 :  SR 
IGHT  1  -  INK  6 


6©  PRINT  RT 
LtUEL t 1  so  u5 
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RUST” 

64-  PRINT  BT  2© ,  ©;  INK  6;  "TRY  i 

O  LRND  SHIP  ON  LAND IMG  PROS" 

65  PRxMT  *j  I ;  BR  IljH ts.;  INK  ~T  j 
LUNAR  STORM  ©  DRUID  PERRY  1983" 
00  PR IMT  RT  XF  0 ;  XNK  i i “ENTER 


FOk  T=@  to  7 

©4-  PRINT  RT  i,S;  INK  I;  **C  O  N 
GRBTUL.RTIONS  *  ” 

35  PRINT  RT  3,.?.;  "BONUS  POINTS 
:  ■*  ;  BO;  *'  .  ” 
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6-6  PRINT  RT  5,11;  "SCORE  :  ",SC 
87  NEXT  I:  NEXT  N 

SB  FOR  N=-2©  TO  5©  STEP  5:  BEE 
P  . QS6 , N ;  BEEP  . 8@i, 58-OBS  £N> : 
BEER  *  BSS  .  NxSr;  NEXT  N 
e.Q  CLS  :  GO  TO  1© 
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THE  LURE  OF 
THE  MAZE 
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ABSOLUTELY  AMAZING 


We  now  look  at  a  number  of  different, 
outstanding  maze  programs,  most  of  which 
were  written  by  Graham  Charlton. 

Maze-maker 


We  start  with  a  program  which  draws  a  maze 
of  any  size,  such  as  this  one: 


When  prompted  to  do  so,  enter  any  number 
between  two  and  23  to  see  the  program  in 
action. 

1©  dim  a$r9999J 
a©  DIM  b*C9999) 

3©  INPUT  S 

4-©  LET  t  =INT  (255/5)  #5 
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4-5  LET  W=INT  ( 175/S  )  *5 
5©  PLOT  0.,© 

50  DRflU  t  ..  © 

7©  DRAW  ©,M 
S©  DRPU  -t,© 

90  DRRU  ©  -U» 

100  LET  X  =S 
11©  LET  y=s 
120  LET  2=1 
130  PI_OT  x  ,  y 

14-0  IF  (POINT  (X+S.y)  +POINT  ( 
y-s)  +POXNT  fx,y+s)  +POINT  (X-S.. 
0  4-  THEN  GO  TO  200 
15©  LET  2=2-1 
IS©  IF  2=0  THEN  STOP 
17©  LET  X  =CODE  a$(Z) 

IS©  LET  y=CODE  b$(2) 

190  GO  TO  13© 

20©  LET  a  $ (2 )  =CHR$  X 
21©  LET  b$(Zji  =CHR$  y 
220  LET  2=2+1 
23©  LET  r=INT  (RND*4-> 

24-0  LET  C=S  *  (  (»"=©>  -  ir=l>  ? 

25©  LET  d  =S  +  (  (  r  =2  3  —  i  t~  =3?  > 

269  IF  POINT  tx+e,y+di  THEN  GO 
r  O  2  3  © 

270  DRRU  C  ..  d 
280  LET  X=X+C 
29©  LET  y  =y +d 
30©  GO  TO  130 
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Mangled  Mazes 

There  is  no  reason  why  the  walls  of  the 
maze  should  be  at  right  angles.  Here  are 
four  MANGLED  MAZES  programs,  which  use 
walls  at  odd  angles: 


10 

2© 

30 

4-0 

50 

50 
70 
72 
74- 
76 
76 
30 

51 

32 
34. 
36 

33 


DIM  s$(9999.i 
DIM  b$£9999A 
INPUT  S 

LET  t  =INT  f254/£..l  *£- 
LET  W  =IHT  i  1 74-ys.  A  ZS- 
PLOT  0/0 
DRAW  WS2,WS2 
DRAW  -10  -'2  /  10  y2 
DRAW 

DRAW  W  y 2  -S  /  -W  S'2  ZS 
DRAW  to  y£  /  to  /2  -S- 

DRAW  ( t -W J  y2 , 0 
DRAW  -W  S2 , -W /2 
DRAW  W/2/-W/2 
DRAW  -  C  t  -to  )  S2  /  0 
DRAW  -W S2 ZS / U»  y2-s 
DRAW  -U»y2  ZS  .  -WS2Z£ 
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■30  DRRW  -  (  t  -W  )  /2  ,  0 
110  LET  X-S*l 2 
12©  LET  y  =£  *10 
130  LET  Z=1 


14-0  PLOT  x,y 
itJ®.  xf*  tPOXNI 
•  Mi  +  POINT  f.x  , 


(X  +£.  ,.y  >  *PO; 
M+S.»  + POINT 


10  DIM  B  $  ( 9QQ9 > 

20  DIM  b*  19999) 

30  INPUT  £ 

4-0  LET  t=INT  (255/5)  *£- 

4.3  LET  ui=INT  (175/5)»5 

50  PLOT  0  .<•  0 

50  DRRU  t  ,  0 

70  DRAW  0..  W 

30  DRAW  ™  t  / 0 

3©  DRRU  0 ,  —  U* 

100  LET  X  =£ 

110  LET  y=s 
120  LET  Z  =1 
130  PLOT  X  ,  y 

14.0  IF  (POINT  (X+£- ,-y +£■>  +POIMT  * 
x  +s  y  -«■ )  +POINT  (x  -s- ,  y  +£•  .*  +PBIHT  i 
x  — s  i  y  -S  J  )  <  >  4>  THEN  GO  TO  '200 
150  LET  Z *Z -1 


IBB 


150  IF  z=0  THEN  STOP 
17S  LET  .X  =OCDE  3  $  t'2> 

130  LET  y=COC>E  b$t'2.> 

19©  GO  TO  13© 

SO©  LET  3$i'z)  =CHR$  x 
21©  LET  b$(z)sCHRS  y 
22©  LET  2=2+1 
23©  LET  r  =INT  (RNJ>»4-J 
24-0  LET  c  =S  *  i  ir  <23  -  if  >13  > 

25©  LET  d  =S  *  t  if  =0)  +  i"  f  =33  -  i  r  =1  .>  - 
( r =2 1  I 

25©  XF  POINT  ix+c,y+d3  THEN  GO 
TO  23© 

270  DRAW  C , d 
25©  LET  X  =X  +  C 
29©  LET  y=y+d 
30©  GO  TO  130 


±0 

DIM 

a  $  i  3000 J 

2© 

DIM 

(300©) 

30 

LET 

X=1£S 

4-0 

LET 

y  =83 

5© 

LET 

Z  =1 

5© 

INPUT  S 

7© 

LET 

t  -S  #2 
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3©  LET  <J  =  J NT  ( SDR  i  t  *  t  -3  #-j  f  3 
10©  PLOT  X ..  y 

20©  FOR  C  =  -t  TO  t  STEP  t  *2 
21©  IF  X+c>255  OR  XKCS  THEN  GO 
TO  23© 

£2©  IF  POINT  (X+C..  «3=©  THEN  GO 
TO  300© 

S3©  NEXT  C 

25©  FOR  C»-S  TO  S  STEP  t 

26©  IF  X+C >255  OR  X+C <©  THEN  GO 

TO  310 

270  FOR  d  =  -q  TO  q  STEP  q  *2 
26©  IF  y  +d  >175  OR  y +d  •:©  THEN  GO 
TO  30© 

22©  IF  POINT  (X  +  C  ..  y  +d  3  =©  THEN  G 
O  TO  3000 
3©©  NEXT  d 
31©  NEXT  C 
2©0©  LET  Z=Z -1 
2©1©  IF  X  =0  THEN  STOP 
202©  LET  X=CODE  a$(ZJ 
203©  LET  y=CQDE  fe$(Z) 

204-S  GO  TO  10© 

3000  LET  a$(2) =CH R$  X 
301©  LET  b$ (2) =CHR$  y 
302©  LET  Z =Z +1 
3030  LET  r=INT  (RND*6  3 
304.0  LET  C  =S  *  (  ( =13  +  ( >"  =53  -  ( »"  =03  - 
s  r  =4-3  3  +t  *  (  (  f  =33  -  C  r  =23  3 
3050  LET  d=q  +  (  If  <23  - ( r  >33  > 

306©  IF  X+C  >255  OR  X+CC©  THEN  GO 
TO  3030 

3S70  IF  u  +d  > 175  OR  y+dc©  THEN  GO 
TO  303©” 

3©S0  IF  POINT  (X+C..  y+d3  THEN  GO 
TO  303© 

300®  OJRPU  C  ,  d 
3100  LET  X=X+C 
3110  LET  y=y+d 
312©  GO  TO  10© 
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Walls  of  Suspense 

In  this  program,  you  have  to  race  two 
computer  opponents  (both  shown  as  "0")  in 
trying  to  solve  a  maze.  You  are  the 
You  start  at  the  top  left  hand  corner  and 
are  trying  to  get  to  the  bottom  right  hand 
one. 


The  first  one  to  solve  the  maze  is  the 
winner.  Delete  line  354#  to  make  it  a  real 
time  game.  £  izo 

10  DIM  c $  ;  2 3 , 33  > 

IS  DIM  8$<100O.1 
14-  DIM  b$  t  1000.' 

20  LET  X  =13 
30  LET  y =17 
40  LET  2 =1 
50  FOR  U»  =2  TO  22 
60  let  c$iw>="  nunnp-nunnnunnun 
nutmuttuuuuttuttmm 
78  NEXT  W 

100  LET  c$(x,y)*"  " 

110  IF  c $ <x +2 ,y J ="#"  OR  t  $  V :>!  -2  , 
y  )=**»•*  OR  c*  (x  ,y  +2>  *■ '*#"  OS  c$V.x. 
y -2  >=**#'*  THEN  GO  TO  1000 
120  LET  2  =2 -1 

130  XF  2=0  THEN  GO  TO  2000 
140  LET  X-CODB  a  $  Ca  J 
150  LET  y  =CODE  ( Z> 

160  GO  TO  100 
1©00  LET  3$fZ) =CHR$  X 
1010  LET  tifzJ =CHR$  y 
1020  LET  z=z+l 
1030  LET  r=XNT  (RNDfi.i 
1©40  LET  c=  If  =0)  —  ff  =1.1 
1050  LET  d  =  f  r  =2 >  - i r =31 
1060  IF  c*  tx+2»C  ,y+2»rf>  «'*  "  THEN 
GO  TO  1030 

1070  LET  t$  IX+C/y+dJ  s"  " 

1080  LET  c$  vx +2*c  ,y+2 *4) *"  " 

1030  LET  X=X+2*C 
1100  LET  y  =y  +2*d 
1110  GO  TO  100 
2000  FOR  »=2  TO  22 
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201®  PRINT  INK  7;c$iU*.2  TO  >- 
202®  NEXT  W 

2@30  PRINT  RT  19,29;  'X’' 

3000  LET  x =1 
3005  LET  p=i 
3©05  LET  ual 
3010  LET  y=i 
3015  LET  q=I 
301©  LET  V  =1 
3©20  LET  £  =® 

3©25  LET  t  =® 

310®  PRINT  RT  x  ,  y  ; " * " 

3110  LET  Z$=INKEY$ 

3120  IF  Z$  =  ” *■  THEN  60  TO  311® 
313®  LET  C  =  tZ$=**6”>  -  VZ$=" 7".> 

314.®  LET  d=(Z$  =  "8")  -(2$  =  "5") 

316®  IF  SCREEN?  (X+C,y*di ="»"  Th 
EN  BEEP  ,!,©.•  60  TO  36®® 

317©  PRINT  RT  X  y  ;■■»■* 

3  IS©  LET  XssX+C 
3190  LET  y=y+d 
320©  PRINT  RT 

3210  IF  X  =19  BN£V  y  =29  THEN  STOP 
3S0©  LET  S=S -1 
370©  IF  S=-l  THEN  LET  £-3 
3900  PRINT  RT  P,q;"«" 

4.00®  IF  S=  4.  THEN  LET  £  =© 

4-01©  LET  C  =  (£  =1.\  -  f£  =3.* 

4-02©  LET  d  =  (£-  =©.>  -  i£  =2* 

4-03©  IF  SCREEN?  ip  +  C  ,  q*d >  ="#”  TH 

EN  LET  S  =S  +2 :  60  TO  4-065 

4.05®  LET  p=p  +  c 

4.06©  LET  q=q+d 

4.065  PRINT  RT  P,q;"G" 

4-07©  IF  p  =19  RND  q  =29  THEN  5TOP 
5S©0  LET  t  =t -1 


570©  IF  t=-I  THEN  LET  t -3 
590©  PRINT  RT  U  ..  V ; 

600©  IP  t  =4.  THEN  LET  t  =® 

5010  LET  C  «  i  t  as©.*  -  »  t  =21 
602©  LET  d*  ft =1 >  -  i  t =3.» 

©030  IF  SCREENS  Cu C , V +d > ="»"  TH 
EN  LET  tst+2;  60  TO  6065 
©05©  LET  UBU+C 
60S®  LET  V  =V+d 


5065  PRINT  RT  U,v; 
607©  IF  U  =13  AND-  V 


"O" 

=29  THEN  STOP 


60S©  60  TO  310© 
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Wall  of  Suspense 

In  this  version  of  the  game,  you  are  only 
racing  a  single  computer  opponent. 
However,  it  is  far  more  intelligent  than 
the  double  opponents  and  can  race  as  fast 
as  you  can. 


3.0  DIM  >-  £  (S3  i  3a) 

22  DIM  aid 000) 

24.  DIM  b$d.000) 

30  LET  X  =  13 
30  LET  y  =17 
4-0  LET  Z=  1 
50  FOR  W  =2  TO  22 
S©  LET  C  $  (  W  ? 

7©  NEXT  tit 

100  LET  C$(X..  y>="  " 

11©  IF  C$  (X  +2,y>  «*'»•*  OR  C$ rfx-s, 
yl  ="#"  OR  C  $  Cx  ..  y  +-25  =  ”#"  OR  CSO(.. 
u-2:t=‘’»*'  THEN  GO  TO  1030 
' ion  LET  z=Z— 1 
230  IF  Z  =0  THEN  GO  TO  200© 

14.0  LET  x=CODE  a$(Z> 

153  LET  y =CODE  b$lZ? 

GO  TO  10© 

LET  a$(Z) =CHR$  X 
LET  b$(Z)=CHft$  y 
LET  Z  =Z  +1 
LET  r = INT  { RNO * 4  > 

LET  c = { r =©> - ( r =1? 

LET  d  =  (  r  s2)  -  (  r  =3  ) 

XF  C  $  (X +2*C  ..  U +2*d  >  ="  "  THEN 


160 

2000 

1010 

1030 

1030 

±04-0 

2050 

1360 


GO  TO  103© 

207©  LET  C  $  (i<  -f-C  ..  y  +d  J  =  *'  ” 

1SS0  LET  c  $  (X +2*C  f  ='■ 

102©  LET  X  =X  +3*C 

2200  LET  y=y+2*d 
121©  GO  TO  I©© 

2000  FOR  W =2  TO  22 

£010  PRINT  INK  ?.;  €$  Off  ..2  TO 

2020  NEXT  W 

233©  PRINT  FiT  19, 20;  "X" 

300©  LET  X  =  1 

3005  LET  p  =  2 

3010  LET  U  =  1 

3015  LET  q  =1 
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02©  LET  s=© 

1S0  PRINT  AT  x  .  y " 
11©  LET  Z  $  =  INKEY  $ 
12©  IF  z  $  =  ”■'  THEN 
13©  LET  C= (2 $="&“? 
14-3  LET  d  =  (Z  $="S”  > 
160  IF  SCREENS  ( X  -f 
N  BEEP  .  1  ..  0  :  GO  TO 
170  PRINT  AT  X , y , " 
130  LET  X«Xt£ 


THEN  GO  TO  311© 
;  =  ’*&“>  -  { Z  *  =  "7"  > 
;=•■©”>  -  CZ$i  =  ”5”> 

$  (X  +C  .  y  +■£*>  =“»” 
GO  TO  360© 
x  ,  y “S" 


TH 


3190  LET  y=y+d 

3200  PRINT  AT  X  ..  U.;  '  *"  „ 

321©  IF  X  =19  AND  y =29  THEN  STOP 

3500  LET  S=S— 1  _ 

370©  IF  S=-i  THEN  LET  S =3 
3900  PRINT  AT  p,q,“B" 

4-000  IF  S  =4.  THEN  LET  5  =© 

4.01©  LET  C  =  (S  =1.<  -  is  =3f 

4.02©  LET  d  =  tS  =0>  -  (S  =2>  _ 

4-030  IF  SCREENS  (p  +C  .«  q  -fd  >  ="tf"  TH 
EN  LET  S  »S +■ 1 :  GO  TO  400© 


4-030  LET  p=p+C 
4.©60  LET  q=q+d 
4355  PRINT  AT  P,q.;"0" 
4.070  IF  p  =19  AND  q  =29 
4-0S0  GO  TO  3100 


THEN  STOP 


Dual  Level  3-D  Maze 

In  this  program,  the  maze  is  on  two  levels 
connected  by  a  number  of  tunnels. 

The  display  shows  the  top  and  bottom 
floors,  along  with  the  interconnecting 
tunneLs.  You  move  through  the  maze  using 
the  cursor  keys  "5"  to  "8”,  with  "9"  to  go 
up  a  level  and  "4"  to  descend.  The  maze  is 
invisible,  but  you  cen  delete  line  20DQ  if 
you  want  to  see  it. 

You  have  to  get  from  the  top  left  hand 
corner  of  the  left  hand  maze  to  the  top 
right  of  the  right  hand  one. 
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10  DIM 

20  DIM  a  $ ( 10003 
30  DIM  b$ 11000) 

4-0  DIM  C$(1000) 

50  LET  X  =5 
50  LET  y  =21 
7©  LET  2=9 
50  LET  W  =1 
9©  FDR  a =2  TO  6 
100  FOR  b=2  TO  22 
110  LET  d$  Ca  ..  b)  ="  tttttttttttttttttt  " 
120  NEXT  b 
13©  NEXT  a 

14-0  LET  d  $  ix  y  z  >  ="  " 

150  IF  d  $  (X  +2  /  y  /  2  )  ="tt”  OR  d$f.X- 
2  .•  y  ^  2  ;•  ='*#*'  or  d*(x,y+2,2.»="?r  or 
d$fx  ,y-2;i)  ="»"  OR  d$f:>:  ,  2*2)  = 

”»*=  OR  d*  (X  /  y  ,2 -2)  ="#"  THEN  GO  T 
O  1000 

160  LET  «=W-1 

170  IF  W  =0  THEN  GO  TO  2000 
150  LET  X=CODE  a$  t#S 
19©  LET  y=CODE  b  $  OP ) 

200  LET  2  =CODE  Cf  I'iP) 

210  GO  TO  14.0 
1000  LET  a$  t'W)  =CHR$  X 
1©10  LET  b*  fW)  =C-HR$  y 
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1020  LET  C$(W) =CHR$  2 

1030  LET  »=W+1 

104-0  LET  r=INT  (RND*G.i 

1050  LET  c  =  (  r  =0.1  -  i  r  =1 .5 

1060  LET  d  =  f  r  =2.1  -  (  r  =3.1 

1070  LET  e  =  (  r  =4-)  -  5  r  =5.1 

1030  IF  d  $  (x  +2  *  C  ,  y  *2*d  ,z  +2*e.>  =  " 

'  THEN  GO  TO  I ©40 
1090  LET  d  $  i x  +  C  ,  y  +d  /Z  +e  .>  ="  " 

1100  LET  d$(X+2*c,y+2»4,Z+£*eJ  =" 

1110  LET  X=x+2 *C 
1120  LET  y  =y  +2  *d 
1130  LET  z  =z  +2*e 
114.0  GO  TO  14-0 

2000  BORDER  0:  INK  0:  PRPER  0:  C 

L5 


2010  FOR  b=2  TO  23 
2020  PRINT  d$i'3,b.l 
2030  PRINT  d$l4,b* 
2040  PRINT  d*(5,b, 
205©  NEXT  b 
2060  INK  7 
2100  LET  X=1 
2110  LET  y  =2 
2120  PRINT  RT  19 
3000  PRINT  FLRSH 
3010  IF  X  =19  RND 
3020  LET  I$=INKEY$ 
3030  IF  z  $  =" ”  THEN 
3040  LET  C=(Z$  =  ,,6".l 
3050  LET  d  =  ( Z  56  =  " S "  .1 
(  iz$  =  ,,3,,i  -  iz  $  =  ',4”  i  J 
3055  IF  y  +d  <  0  THEN 


TO  10} 


30;  "X" 

1 ;  RT  X ,y;  ‘ 
y  =30  THEN 


STOP 


3860  IF  SCREENS 
EN  GO  TO  3020 
307©  PRINT  RT  X. 
3030  LET  X=X+C 
3090  LET  y  =y  +d 
3100  GO  TO  3000 


GO  TO  3020 

-  (z  S  =  "  7  '*  .1 

-  fzS=”S“.i  +11# 

GO  TO  3020 
(X+C  ,  y+d.»  ="#"  TH 


Scrolling  Maze 

In  the  next  program  in  this  section  of  the 
book,  the  maze  is  four  times  bigger  than 
the  screen,  which  scrolls  across  when  you 
hit  the  sides.  There  are  two  versions 
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given.  The  first  scrolls  using  e  machine 
code  routine,  and  the  second  version  does 
much  the  same  thing  in  BASIC. 


The  object  of  the  game  is  to  move  from  the 
top  left  hand  corner  of  the  maze  to  the 
bottom  right  hand  one  using  the  cursor 
keys.  Delete  lines  3070  and  3075  if  you 
don't  want  to  leave  a  trail. 


88888888888888888888888888888888 
«*■  an  mu 

88888  uuuaa  a  nan  nun  nun  nun 

8  8  8  8  8  u  a  a  u 

a  a  a  a  a  88888  8888888  nuuuu  u 

u  a  nan  8  u  mum 

»  88888  8  8  88888  888  8  8  8  8  88 

8  88  8  88888 

8  8888888  88881*  88888  8  8  8  888 
88  8  88888 

8  8  888  888888888  888  88888  88 

88  88  8888  8 

88888  888  888  888  8888888 

8888  8  8  8  88  8 

8  888  8  8888888  8888888  8  888  88 
88  88  8  888  8 
8  8  888  8  8888888  888  888  888 
8  888  8  88  888 

p8888  8  888  888888888  88888  8  8 

|  888  8  8  888888888  88888  888888 
8  8  8  8  8  8 


2  Cl_EFfR  59999 
d.  FOR  a  =5000©  TO 


g. 

S 

10 


20 

25 

30 

4.© 


?EOD  D 
*OKE  a.. n 
vJEXT  a 

>IM  e*  (4.5,653 
>IM  a$< 10003 
3RNDOMIZE 
>IM  b$ ( 10003 
_ET  X  =43 


60163 
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t>0  LET  y  =& 3 

5©  LET  Z  =1 


70  FOR  Ws  2  TO  4*4 
80  LET  C  $  ( W  ;<  =  ” 

mmutttttttttt  utttttt  ttttu  tstttt  stttjtts&tsst&tt ssttnst 


ggammua eg  “ 


3©  NEXT  W 

10©  LET  trSF  £  x ..  y  >  =  ” 

11©  IF  c$(X+2,y)  ="tt"  OR  c  $  £  X  —2  .« 
vjj  =••»"  OR  C  $  (X  .  W +2i  =**»**  OR  C$£X.. 
*4-2)  THEN  GO  TO  100© 

120  LET  Z=Z-1 

130  IF  Z =0  THEN  GO  TO  200© 

14.S  LET  X=CODE  a$izi 
15©  LET  U=CODE 
16©  GO  TO  1©0 
ie©0  LET  3$(2) =CHR$  X 
1010  LET  b$(2) =CHR$  y 
1G20  LET  Z=Z+1 
1030  LET  r  =  INT  £  RND  +4. 1 
104-0  LET  c  =  f  r  =0.1  -  £  f  =1) 

1050  LET  d  =  £  r  =2  :<  -  £  r  =3  J 

1060  IF  C$(X+2*C,y+2idi ="  "  THEN 

GO  TO  1030 

1070  LET  C*  f.X  +c  ,  y  +d  >  ="  ” 

10SG  LET  C  $  (X  +2  +  C  ..  y  +2  strd  )  =”  ** 

1 030  LET  X  =X  +2  S-  C 
1100  LET  U=W+2*d 
1110  GO  TO  10© 

20O0  FOR  W =2  TO  23 
2S10  PRINT  C  *  f  Uf  ,  2  TO  33} 

2020  NEXT  w 
2100  LET  X  =1 
2110  LET  D=1 
2120  LET  p  =2 
2130  LET  q=2 

300©  PRINT  FLASH  1 ;  PT  X . y ; " +" 
3010  IF  P  =23  PND  q =33  THEN  PRINT 
PT  20.30. “X” 

3020  LET  Z $=INKEY$ 

303©  IF  Z$=""  THEN  GO  TO  3020 
304-©  LET  C  =  (Z$="6"3  -  £z$=“7"') 

3©50  LET  d  =(  Z  $  =  "&"}  -  f.Z$  =  "S"} 

3060  IF  SCREEN*  £X +C  ,  U +d>  =“»“  TH 

EN  GO  TO  3020 

307©  PRINT  PT  X  y 

3060  LE i  X=X+C 

309©  LET  D=Li+d 

3120  IF  U  =0  THEN  GO  SUB  5000 
313©  IF  y =31  THEN  GO  SUB  510© 
314-0  IF  X  =0  THEN  GO  SUB  520© 
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3150  IF  X  =2 1  THEN  GO  SUB  530© 

32  59  PRINT  FLfiSH  l.  fiT  x,  y.;"#" 

3170  IF  X  =£0  AND  M  =30  RHD  p =23  R 

ND  <5=33  THEN  STOP 

3130  GO  TO  3010 

5SS0  RANDOMIZE  USR  60021 

5010  LET  y  =y  +1 

5015  LET  q=q-l 

5020  FOR  W=0  TO  21 

5030  PRINT  AT  01 , 0  ;  C  $  (p  f «  .  q  3 

504-©  NEXT  W 

5030  RETURN 

5100  RANDOMIZE  USR  60000 
oil©  LET  u=u—l 
5115  LET  q=q+l 
512©  FOR  W=0  TO  21 

3130  PRINT  RT  W,31;  C$(pfi*f  ,.qfS13 
514-0  NEXT  W 
SIS©  RETURN 

5200  RANDOMIZE  USR  60111 
521©  LET  X=X+1 
5213  LET  p=P-l 

522©  PRINT  AT  0,0;  C  $  ip  ,  q  TO  q +31 

i 

529©  RETURN 

5330  RANDOMIZE  USR  60043 
531®  LET  X=X-1 
5315  LET  p=p+l 

532©  PRINT  RT  21,0;  C${pr£i.q  TO 

o  +31 J 

533©  RETURN 


90'00 

DRTR 

33,0.64.65. 62 

, 13S,6,3i 

9©'i© 

DATA 

35 . 34-  .  43 . 115  . 

35  *  IS  . 949 

S020 

DAT  R 

114, 35 , 6 1 , 32 

S42 . aoi 

•0100 

DRTR 

33 .255 . 87 . 22.. 

192 

911© 

DRTR 

6.31.43.34. 35 

..  115  , 43 

912© 

DRTR 

16,249 .114'. 43 

.i  S  1  33 

913© 

DRTR 

242,201 

920© 

DRTR 

33 , 0 , 64 . 17 , 32 

S4 . 299 

9210 

DRTR 

213 .14.23.6.3 

2 * 2S * 119 

922© 

DRTR 

121 . 230  -  7  254 

i  32 ..  2 

923© 

DRTR 

15 1 ,  IS,  35  13, 

15,241, 15 

924.G 

DRTR 

40, 13 . 121 , 23© 

i 7  »  254  « © 

9250 

DRTR 

4©,22;.  254,7,3 

2  x  225 , 213 

3250 

DRTR 

17,0,7, 25, 2©2 

.x  24,21? 

927© 

DRTR 

209,225, 2© .36 

124.,  254 

923© 

DRTR 

72, 32 . 204 . 201 

.»  229 33 . 0 

92^0 

DRTR 

7,25,235,225 . 

24 ..  195 

930© 

DRTR 

33,255 .67.17. 

223 , 57 . 22 

331©  DATA  213,  14- ,  23..  6..  32..  26.,  113 
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332© 

3330 

334-0 

3350 

3360 

3370 

3380 

3330 

34-0© 


DRTR  121..  23©..  7..  254...  1..  32  .,2 
DRTR  151 . 18..  4-3..  27..  16.. 241.,  13 
DATA  40,21,  121..  23©  ..7,.  254..  0 
DRTR  40,24,254,7,32,225,213 
£>flTH  17 ,0,7  ,  167 , 237 , 82 , 203 
DflTfi  24,215, 203, 225, 21, 37 
DATA  124.254.73.200,24,201 
DATA  229  ',  33 , 0 , 7 , 235  ,  167 , 237 
DATA  82 . 235 , 225 , 24 , 193 


This  is  the  BASIC  version: 


10  D IH  C$145. 65 J 

20  DIM  a$(10©0);  DIM  b$(I000? 
40  LET  X=43:  LET  y=63:  LET  z=l 
7©  FOR  ft*  =2  TO  44 
80  LET  C  $tUS)=" 

UttitttttttttSttttt  Sttttttt  tttttS  ttttttttStttttttUttStttStSttt 

uustuttttttttttnmtttttntt  *• :  next  « 

10©  let  c  £  c  x  ,  u )  =*•  “ 

110  IF  c$ (X +2~ y 3  ="»"  OR  c  $ (X —2 . 
y>=”»“  OR  c  $  (X  ,  y  +2>  =”»"  OR 
y-2) =  ”»”  THEN  GO  TO  100© 

130  LET  Z=Z -1:  IF  1=0  THEN  GO  T 
□  2©00 

14©  LET  X=C ODE 

150  LET  y  =CODE  b$CZ):  GO  TO  100 
1000  LET  a$(Z) =CHR®  x 

101©  LET  b$(Z)  =CHRJi  y:  LET  z=z+l 
1030  LET  r  =INT  (RNDt4) 

1040  LET  c= t r =©> — tr = u 
1050  LET  d=(r =2i  -  1 r  =3? 

1G60  IF  C$(x+2iC..yfS«d5  ="  **  THEN 
GO  TO  103© 

1070  LET  C$(X+C  .yfdj  ="  ” 

1380  LET  C$(X+2*C,yf2tdJ  =“  " 

1090  LET  X=Xt2H-:  LET  y='4f2fd 
1110  GO  TO  13© 

200©  LET  X  =  1  :  LET  y  =  1  LET  p  =S 
201©  LET  q-2:  LET  C $ C43 , 63? ="X “ 
2©9©  PRINT  AT  ©, 0; 

210©  FOR  W  =p  TO  p  +21 
2110  PRINT  C$<w,q  TO  q+31i 
212©  NEXT  W 

3000  PRINT  FLRSH  1,  RT  X,y,“*“ 
3010  IF  X =20  RND  U  =30  RND  p  =23  R 
ND  q  =33  THEN  STOP 
3020  LET  Z  *= INKEY $ 

3030  IF  2  $  =  •*•*  THEN  GO  TO  3020 
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304-S  LET  C  =  £Z$=''5":i  - 

3050  LET  d  =  tZ$  =  "3"  J  -  f.Z$E=”5"> 

3060  IF  SCREEN  $  (X  +  C  ..  y  -f-d  >  =  TH 

£N  GO  TO  3020 

3©70  PRINT  RT  X  ..  y  ;  "U" 

3075  LET  C$  iX-f-p..  y +q.t  =”*" 

3030  LET  X*X+C:  LET  y=y*d 
3120  IF  y  =0  THEN  LET  y  =y -t- 1:  LET 
■3  =q  —  1  :  GO  TO  209© 

3130  IF  y =31  THEN  LET  y=y-l:  LET 
■3=q  +  l:  GO  TO  2090 
314-0  IF  X  =0  THEN  LET  xsxti;  LET 
& =P  — 1 :  GO  TO  2090 

3150  IF  X  =21  THEN  LET  x=X-l:  LET 
p=p+l:  GO  TO  2090 
3 IS©  GO  TO  300© 
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Rollermaze 

This  maze  program  was  written  by  Neil 
Pellinacci.  It  was  written  for  the  16K 
computer.  It  will  run  on  the  48K  machine 
but  may  be  difficult  to  modify  because  the 
program's  machine  code  will  have  to  be 
altered. 

The  aim  of  the  game  is  to  travel  across  a 
randomly-generated  maze,  first  from  top  to 
bottom  and  then  back  to  the  top  again  in 
the  shortest  possible  time.  To  enliven  the 
game,  bits  of  the  maze  roll  left  and  the 
rest  rolls  right.  You,  however,  don't 
roll  anywhere. 

You  have  three  lives  and  you  lose  one 

every  time  you  collide  with  a  chunk  of 
maze  to  your  left  or  to  your  right.  A 
siren  noise  sounds  when  this  happens.  The 
number  of  lives,  together  with  the  time 

taken  and  the  best  time  so  far,  is 

displayed  at  the  top  of  the  screen. 

The  title  page  sequence  begins  when  you 
start  the  program.  This  tells  you  which 
keys  to  press  and  also  the  top  ten  times 
and  the  names  of  the  players  which 

achieved  them. 

Presssing  "K"  at  any  time  in  the  sequence 
will  allow  you  to  change  the  control  keys. 
Just  follow  the  instructions.  "S"  will 
leave  the  title  pages  and  start  a  game. 
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ROLLERMAZE  has  five  Levels  of  difficulty. 
I  suggest  you  start  with  level  one,  then 
look  at  level  five  in  action  to  see  the 
difference.  The  clock  starts  as  soon  as 
the  maze  appears.  If  your  final  time  is  in 
the  top  ten,  you'll  be  asked  for  your 
name,  which  you  will  then  see  in  the  best 
scores  list. 

To  put  the  game  into  your  machine,  carry 
out  the  following,  and  remembering  to 
VERIFY  after  SAVE: 

1/  Type  in  program  one,  the  machine-code 
loader  program,  and  run  it.  You  should  get 
the  message  '9  STOP  statement'  if  the 
program  is  correct.  Now  save  this  program 
on  tape  as  you  may  need  it  later. 


PROGRRM  X.,. Machine  Code 


5  REH  byte  POKsr 
1©  POKE  S3589 . 10S 
30  CLERR  31993 
3©  READ  add 

4-©  READ  byte:  XF  byte=-l  THEM 
GO  TO  3© 

3©  IF  byte =399  THEM  STOP 
6©  POKE  add. byte 
7©  LET  add  =add  *1 
e©  GO  TO  4-© 


X©0  LhTh  3200S  .  33  ..  95  34-  ,  203  ,  15© 
,  125  33 ..  15©  .  54- 2©5 , 15©  ,  125 , 35±22 


0 . 72  -  17 . 32 . © 

1 1©  * DfitR  2©5 , 20© , 125 , 25 , 205 , 15© 
.  125 . 25 ..  2©5 ..  20©  ,  125 ..  25 ..  205..  15© ..  1 

*“  120  PRTR  25 . 2©5 . 2 ©0 ..  125 ..  25 205 
15©  1 125 . 25  ..  235 , 2SS  ..  125 , 25 , 2S5 , 15 


©  ,  125 
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130  DRTR  33  ..  0,80, 205 ,  23© . 125 , 25 
,  2©5 , 15©  125 , 25  ..  205 , 20© ..  125 ,25,2 
©5 , 150, 125  « 25 , 205  «  2©0 . 125 . 201 , -1 


,4-3,24-5 , 25 , 24-1,6 , 32 , 203 ,22.43,  16 
,  25 1 , 36 , 123  ,  15 , 236 , 24- 1 , 225 , 239 , 1 

93.201 ,  -1 

15©  DRTfl  32200, 197-,  2 13, 229,24-5, 
17  ,32,0,6,8 , 137 , 4-3 , 25 , 126 , 203,31 
,  24-5 , 167 , 237 ,82,35,241,6, 32 , 233  , 

30.35. 16.251. 167.237.82.36. 193. 1 
6 , 23© ,241, 225 , 209 , 193 , 201 , -1 

16©  DfiTS  3225© ,33,0,64,6 , 192 ,19 

7.6.31.35. 126.43. 119.35. 16.249. 1 

93.54.6.35. 16.240.201,  -1 

17©  DRTR  3230© ,6,1, 20S , 0 , 125 , 18 
,251,58,4,32,254,81,32,4, 1, 1,0,2 
01,254,90,32,4-,  1  ,2,0,201 , 254,73, 
32,4,1,3,0,2©!, 254 , 8© , 32  ^  4 , 1 , 4 , 0 
»  20 1 , 254 .71. 32 . 4 . 1 . 5 . 0 . 2© 1.1.3,© 

,301,-1 .  '  '  ' 

18©  DRTR  32400,33,0,88,6,24,14, 
31,35 , 126 , 43,113. 35 , 13, 32 , 246 , 54 
,0,35,16,241,201.-1 
190  DRTR  325Q0 ,6,1, 137 ,33.15,0, 
17,40,0,229,205, 181,3,225, 17,8,0 
, 167 , 237 , 9© . 125 . 234 . 255 . 32 . 237 . 1 

93. 16.238.201,  -i 

195  DRTR  32550,6.1,197,33,0,3,1 
7, 1,0,229,205, IS 1,3, 225, 17, 16,3, 
167 , 237 , 82 , 32 , 24© , 193 , 16 , 233 . 2© 1 
,  999 


2/Type  RUN  again.  When  the  program  stops, 
type  NEW  to  remove  the  program,  and 
nothing  else,  as  you  still  need  the 
machine  code. 

3/  Type  in  the  main  program,  program  two 
which  follows.  Then  save  it  directly  after 
program  one.  To  save  it,  use  SAVE 
"ROLLERMAZE"  -  do  not  use  line  9600  in  the 
program. 
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PROGRAM  a, ..Ha in  Game 

l  REM  **  Roiling  Ha^a  *£ 
Neil  Pa l iinacei 


833  CL5  :  LET  C$  =  "ENTER  LEUEL  O 
F  DIFFICULTY  12-55“ 

Si©  INPUT  t© $3  *  LEU 

620  IF  Ltv  <  1  OR  LtU  >i?  Or<  LtUOl 
NT  LEU  THEN  LET  Q$=" ENTER  R  UHOL 
E  NUMBER,  2  TO  5":  GO  TO  813 
S3©  POKE  32551,8:  POKE  32555,2; 
POKE  33557 . i :  POKE  3£565,i 
SO©  BORDER  2.  PRPER  7;  GLS 
92©  PRINT  RT  ©.©;  PRPER  2;  INK 
7; ”  THE  ROLLING  MRZE 


32©  PRINT 
©;  "TIME >  e 
@0©  " 

S3©  PRINT 
i  ;  RT  2,4-;  " 
;  "  <  *• 


R 


INK  6;  PRPER  0;  OVER 
<  “  ;  RT  2  27  .  “  <  "  ;  RT  2 , 27 


94-0  PRINT  RT  2,23;  PRPER  ©;  INK 
S:  H  C23 

95©  PRINT  RT  2,©;  INK  2;S$;RT  2 


2,0; SS 

96©  GO  SUB  ©0©0 
2005  INK  7 

2©2©  FOR  R=4-  TQ^gg^STEP  2 :  ^ PRINT 
2©3©  FOR  R  =  2  TO  LEU:  FDR  B=3  TO 


2©  STEP  2 

204- ©  LET  B2=JNT  {RNDS-305  Pi  :  PR  IN 
T  RT  B,Sl;  "Sf” 

105©  NEXT  6:  NEXT  R 

206©  FOR  R  — 2  TO  LEU;  FOR  B=4^  TO 
2©  STEP  2 

i©7©  LET  B 2=1 NT  CRf4D*3©5  Pi:  PRXN 
T  RT  B,Bl;  INK  2; 

103©  NEXT  B:  NEXT  R 

209©  FOR  R=3  TO  20;  PRINT  RT  fi ,© 
;  OUER  i;  INK  2,‘5$:  NEXT  ft 
3.10©  INK  0;  RETURN 
1900  GO  SUB  S©© 

2920  LET  LIUES=3:  LET  T=© 

200®  LET  FIN  =22 :  LET  L=2:  LET'  C  = 
25 

2010  PRINT  RT  1,6;  PRPER  ©;  INK 
6 ;  T :  RT  L,c;  ink  2;  prper  7;  *■  “ 
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aese  let  r=usr  sssssr  if  r=s  the 

M  GO  TO  2i=fra 

2023  IF  R«1  THEN  XF  L>2  THEN  XF 
SCREENS  (L-1,C3  <>*'*'  THEN  LET  L=L 
—  X 

2©3©  IF  R=2  THEN  IF  L <21  THEN  IF 
SCREEN?  IL-i-X  .  C)  <>***•  THEN  LET  L  = 
L  +1 

2©35  LET  C=C+iR=4-  SND  C  <3!>  -  t R=3 
RND  C>©3 

204-©  XF  SCREENS  CL  .  C  J  =  ”  '*  THEN  LE 
T  R=USR  3S55S .  GO  TO  2IS0 
205©  IF  L  <  >FIN  THEN  PRINT  fiT  L,C 
;  INK  l;  :  LET  T=T-*-l:  GO  TO  2© 
10 

205©  IF  FIN =21  THEN  LET  FIN =2:  G 
O  TO  2010 

207©  FOR  B  =  i  TO  2;  FOR  R=4-©  TO  - 
20  STEP  -2:  BEEP  .  ©04-.R;  BEEP  «© 
©4-  BEEP  ,  0©T  .  39 -R.  BEEP  .  © 

©4-  ,  39  —R  —15  ;  NEXT  R .  NEXT  B 
203©  GO  TO  220© 

213©  LET  L IUES  =L  IUES-1 PRINT  f)T 
i..  is;  PflPER  ©;  ink  &:  lives 
2110  IF  LIVES  v  >©  THEN  GO  TO  SSQ8 
212©  PRINT  RT  6.0;  INK  1.  S$ ;  RT  1 
5,©; 5$ 

2130  PRINT  RT  6,11;  INK  6 : "QRHE 
OVER  “  ;  RT  15, 11;  "GRME  OVER*' 

214-©  FOR  R  =  1  TO  256:  LET  B=U5R  3 
23©©:  NEXT  -R 

215©  FOR  R-2  TO  150:  NEXT  R:  GO 
TO  4-03©_ 

220©  rOR  R  =  1  TO  10:  Ir  T  <  hi tRi  (H 

EN  GO  TO  2230 

221©  NEXT  R :  GO  TO  4-©©© 

223©  FOR  B=9  TO  R  STEP  -1:  LET  H 
CB  +  l)  =H  CB)  :  LET  H$  tB-rli  =H$  iS7  :  N 
E>rr  B 

224-0  LET  H  CR>  =T :  INPUT  "PLER5E  T 
YPE  YOUR  NfiHE: LINE  NS:  LET  H$ 
(R)  =DS.  LET  H$  (R,  TO  LEN  Nf-f-i)  =N 
$ 

225©  GO  SUB  S3©0  :  GO  TO  4-©7© 

4.©©©  BORDER  3.  PRPER  S:  CLS  :  RE 
H  TITLE  PRGES 

4©1©  GO  SUB  51©©.  LET  INK=6:  GO 
SUB  4-500:  REM  TITLE 

4-020  FOR  C  =  I  TO  20:  GO  SUB  4-500: 

IF  CHR$  PEEK  23556="S“  OR  CHR$ 
PEEK  2S556  =  ”K  *  THEN  GO  TO  410© 
4-03©  NEXT  C 
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4-04.©  GO  SUB  5SS0 :  REH  OPTIONS 
4.050  FOR  C  =  2  TO  20;  GO  SUB  4500; 

IF  CHR$  PEEK  2S556="S"  OR  CHR$ 
PEEK  23556=  ''K"  THEN  GO  TO  4-183 
4©S0  NEXT  C 

4-070  GO  SUB  5500;  REH  HI -SCORES 
4030  FOR  ft=l  TO  5S3;  IF  CHHf  FEE 
K  23556 = ” S "  OR  CHR$  PEEK  23556=" 
K"  THEN  GO  TO  410© 

4038  NEXT  ft ;  GO  TO  4000 
4100  LET  R=U5R  3250©;  IF  CHR$  PE 
EK  23555="5"  THEM  GO  SUB  4288;  G 
O  TO  1508 

411©  GO  SUB  4200;  GO  TO  430© 

423©  FOR  R=2  TO  34:  LET  B=USR  32 
253+USR  32400;  NEXT  R:  RETURN 
4300  REM  CHRNGE  KEYS 
4310  INK  0:  BORDER  6;  PRPER  6:  C 
ES  :  BORDER  3 

4315  POKE  32557,2:  POKE  32551.1© 
:  POKE  32555 , 2  :  POKE  32565 ..  16 
4320  PRINT  RT  1 , 1© ;  INK  0;  ’’REDEF 
INE  KEYS  ** 

4330-  PRINT  '  '  INK  2 1  ”  PRESS  YOU 
R  NEW  KEY  WHEN  ERCH" 'TRB  G;  "PROM 
PT  RPFERR5" 

434©  PRINT  ' ' *  INK  2;TRB  22;  PRP 
ER  7; “UP" ; TRB  22; 

435©  EET  K  =PEEK  23556:  IF  K=255 
THEN  GO  TO  435© 

436©  POKE  32322, K:  PRINT  PRPER  7 
; CHR$  K 

4365  EET  fi=USR  3255©:  FOR  ft =2  TO 
250:  NEXT  ft 

437©  PRINT  '  INK  2; TRB  22;  PRPER 
7 ;  "DOWN ” ; TRB  21  ; 

4330  EET  K=PEEK  23556:  IF  K=255 
THEN  GO  TO  43S© 

4390  POKE  323 29,  K  :  PRINT  PRPER  7 
: GHRf  K 

4395  EET  R=USft  3255©:  FOR  fi  =  2  TO 
250:  NEXT  R 

440©  PRINT  '  INK  2; TRB  22;  PRPER 
7: "LEFT” : TRB  22; 

441©  EET  K=P£EK  23556 ;  IF  K=S55 
THEN  GO  TO  442© 

442©  POKE  32327, K:  PRINT  PRPER  7 
;CHR$  K 

4425  EET  R=USR  32550:  FOR  R=1  TO 
250 :  NEXT  R 
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4-4-30  PRINT  '  INK  2.,  TfiB  11;  PAPER 
?; "RIGHT"; TRE  21; 

4-4-4-©  LET  K=PEEK  23556:  IF  K=255 

THEN  60  TO  4-4-4-© 

4  4-5©  POKE  32335,  K:  PRINT  PRPER  7 
;-  CHR$  K 

4-455  LET  R  -USR  32550 .  FOR  R  =  2  TO 
15© :  NEXT  R 

446S  PRINT  '  INK  2 ; TfiB  11;  PRPER 
7  ;  **  ABORT  •• ;  T  RE  2  2  : 

4-4-7©  LET  K-PEEK  23556:  IF  K=255 

THEN  60  TO  4-4-7© 

4-4-S©  POKE  3234-3  .  K ;  PRINT  PRPER  7 
; CHRS  K 

4-4-S©  LET  fl=U5R  3255©:  GO  TO  4-©©© 


4-50©  INK  INK:  RESTORE  4-6©S:  FOR 
R=©  TO  2:  RERD  R$  :  PRINT  RT  R*IJ 
Rf:  NEXT  R 

4510  FOR  R=3  TO  6:  RERD  Rf :  PRIN 
T  RT  R  ,  5  R Si:  NEXT  R 

452©  FOR  R  =  7  TO  11:  RERD  Rf :  PR I 
NT  RT  R  .  14-;  R$:  NEXT  R 
4530  PRINT  INK  7;  RT  8, 1;  “Uri  t  tfif> 
i»y  “  ;  RT  i© 4  ;  '  Nei  l "  ;  RT  12 1 ;  “Pe  i 
linacci  " 


4-54-©  LET  INK— INK 4-1:  IF  INK-8  THE 


N  LET 

*  XNKssi 

4-525 

INK  O: 

RETURN 

4500 

DRTR  " 

£  fi  gp®*' 

i  HE1 

4610 

IXRTB  " 

4520 

DRTR  *' 

55  S'  S 

4830 

DhTR  ” 

SB  as  m 

£§e 

4-o4-0 

DR7R  ' 

S  f  i  Ki 

9  »» 

4650 

F**«S  il 

ir" 

4650 

DhTR  ” 

S  ■  H 

i  r*  ss 

i  S  1MM 


Mr  m 


4-87S  DATR  "  g 
4680  DRTR  %*  I 
4590  DRTR  "  I 
4T0©  DfiTfl  "  1 
4710  DRTR  "  1 
5000  REM  OPT 
5810  FOR  R=1 


A  Jh 


j*  i 


pkimt  ffr  r 


©  .  S  $  ;  H£lXT  Ft 

5920  INK  5;  PRINT  RT  15, IS; "PRE5 
S :  ”  ;  RT  17 , 10;  BRIGHT  BRIG 

HT  ©;  **  TO  STRRT” ;  RT  IS  ..7;  BRISK 
T  i;'*K":  BRIGHT  ©;  "  TO  CHRNSE  K 


EY5" 
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5030  RETURN 

510©  INK  6:  PRINT  RT  15,3: "GRHE 
CONTROLS" : RT  17,5: ”  -  LEFT ” ; RT  IT 
..  as;  ”  -  up-  ;  rt  is  .  6;  **  -  right'*  ;  RT 

19.21;"-  DO UN” 

511©  PRINT  BRIGHT  1 ;  RT  i7..i;CHR$ 
PEEK  32327; RT  17,£8;CHR$  PEEK  3 
2311;  RT  13.4.;  CHRS  PEEK  32335.  RT 
13 , 20 . CHR $ ' PEEK  32313 
512©  PRINT  RT  21,11;  BRIGHT  1; CH 
PEEK.  3234-3;  BRIGHT  0;  ”  -  fiBOR 

513©  INK  0:  RETURN 

550©  BORDER  ©:  PRFER  S:  CLS  :  IN 
K  7:  PRINT  RT  0,6;  INK  B;  BRIGHT 
a; "TODRY'S  BEST  SCORES" 

551©  FOR  R=1  TO  10;  PRINT  ”  R 

ND  no  10;  fi;  "  H$  <RJ  ;  ”  .  .  H  (R5  : 

NEXT  R 

5515  PRINT  ©©;  INK  5; ”  P 

RESS  BRIGHT  l;  "S";  BRIGHT  @j  ** 

OR  BRIGHT  l; "K” 

552©  RETURN 
S00©  REM  JINGLE 
S©1©  RESTORE  S4-@© 

302©  READ  R. B:  IF  R=9S  THEN  RETU 
RN 

3325  IF  R=S8  THEN  PROSE  BF5;  GO 
TO  e©2© 

603©  BEEP  R/S.B-StLEU:  GO  TO  602 
© 

64-00  DRTR  .3,4,  .3, ,4,  .6,  10,  -3,4,  . 

3  j»  "5-  *  •  &  >  !l0  i  o  «  ^  m*  *  o  1 4-  i  *  ,*  xo  *  x 

©4-1©  drtr  ©a.,  is 

©4-2©  DRTR  .  4- 1©  ,  *  4-  12  *  .  4- ..  5  «  4-  .*  ©  , 

.3,4.5 

©4-3©  DRTR  o8,2©l.5t04.&l4 
©5©0  DRTR  99  ,  © 

*3000  REM  FORM  UDG '  5 

301©  RESTORE  3©00 :  FOR  R=USR  "fi" 
TO  USR  REPD  B:  POKE  R;B; 

N5XT  R 

303©  DRTR  16,55,15,124,15,49,56, 
©a  2<t 125 ..  126 255  255 125  ,*  125  24- 
905©  LET  =  " 

305©  DIM  H  Cl©)  :  DIH  Hf CI©,20) 
9078  FOR  R=1  TO  10;  LET  H$ im ~"N 
EIL  PELLINfiCCI  NEXT  R 

3B30  FOR  R-l  TO  10;  RJERD  B;  L.ET 
H  =B:  NEXT  ft 
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9090  C'ftTfi  350 , 330,430,470,510,55 
©  .  59@..&3&,?S®,  I0SS 

510©  LET  D$  =  **  ................... 

1 1 

520©  SO  TO  4~©0© 

950©  FOR  Z =3255©  TO  32550 ;  PRINT 
Z;  "  “ ;  PEEK  Z:  NEXT  Z 

551©  STOP 

560©  SfiUE  "  RGl_l_EHHFiZE  ”  i_ZK5E  S7Q© 
:  SPUE  **  RDLLERCDTE  “  CGDE  32000..  60 
© 

3610  STOP 

370B  CLEAR  31555  :  L.ORD  "  "CODE  : 
GO  TO  3©0© 


USSf  Cs  f  tiled  Graphics 
A  ...  Ft  ,.B 


4/  Type  RUN  9000.  When  the  title  page 
appears,  press  "S"  to  play.  If  the  program 
crashes,  you've  made  a  mistake  somewhere. 
If  the  program  runs  properly,  try 
redefining  the  keys.  Test  everything. 


5/  When  you're  happy  with  the  program, 
save  your  final  copy,  using  RUN  9600.  Then 
check  it  by  using  VERIFY  "ROLLERMAZE"  and 
then  VERIFY  " RO LLERCODE "CODE  32000,600 

6/  Play  the  game,  either  loading  it,  or  by 
typing  RUN  9000 

The  program,  as  is  pretty  obvious,  is 
written  in  BASIC  and  machine  code.  The 
machine  code  reads  the  keyboard,  rolls  the 
maze  and  handles  sound  and  other  special 
effects.  Various  POKEs  in  the  program 
control  these  routines.  Line  9500  can  be 
used  for  checking  machine  code  by  changing 
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the  addresses.  There  is  enough  space  in 
the  machine  code  memory  map  for  your  own 
special  effects  routines,  if  you  want  to 
add  them. 

If  you  own  a  48K  machine  and  you  want  to 
move  the  machine  code  higher  up  in  memory, 
you  must  remember  to: 

i/  Change  the  USR  addresses  in  the  main 
programs 

ii/  Change  individual  bytes  within  the 
machine  code,  as  some  routines  call 
others,  for  those  who  know  about  such 
things,  the  two  address  bytes  following 
CALL  (205  decimal)  will  have  to  be  changed 

iii/  Make  the  necessary  adjustments  to  the 
machine  code  loader  program 


Thrce-D  Maze 

This  great  program  was  written  by  Scott 
Vincent.  You  need  a  48K  computer  to  run 
it. 

A  ten  by  ten  maze,  with  a  single 
entrance/exit  is  stored  in  the  computer's 
memory.  The  object  of  the  game  is  to 
wander  through  the  maze,  find  the  treasure 
and  then  get  back  to  where  you  started. 

If  you  lose  your  sense  of  direction,  you 
can  press  the  "R"  key  for  a  repeat.  This 
takes  you  through  the  maze  from  the 
beginning,  showing  you  quickly  all  of  your 
previous  moves.  When  the  repeat  has 
finished,  you  continue  on  with  your  trek. 

Use  the  foL Lowing  keys  to  move  around  the 
maze: 


1  -  to  move  left 

2  -  to  move  right 
0  -  to  go  forwards 
L  -  to  turn  around 

Note  that  you  need  to  press  L  twice  in 
order  to  turn  through  180  degrees;  you 
cannot  press  1  or  2  twice. 

If  you  manage  to  get  out  of  the  maze  with 
the  trasure,  you'll  be  told  how  many  moves 
you  took.  The  maze  is  not  generated  at 
random,  so  it  is  the  same  from  game  to 
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game.  However,  the  treasure  is  placed  in  a 
random  location  each  time  you  run  the 
program. 


5  BORDER  5;  PRPER  5:  INK  1 :  C 

LS 

1©  RRNDOMXZE  :  DIM  M  (9)  :  DIM  N 
CO);  DIM  H$1201,9.':  DIM  NffSSB,! 

H©  FOR  X =0  TO  31:  RE PD  y:  POKE 

usr  "a "  +x ,  y :  next  x  .  .  MPr 

30  FOR  X  =1  TO  9:  RERD  Mix.*:  NE 

VT-  V* 

4-fe  FOR  X  =1  TO  9:  READ  NfX):  NE 

VT  V 

5©  FOR  X  =1  TO  200:  HERD  M$(Xi  : 

NM !  POR  X  =1  TO  203:  READ  N$  txA  ; 
NEXT  X 

*  70  LET  G$  =  ‘*00I":  LET  P$  =  ‘'":  LE 
T  L  =  l:  LET  Tr=0:  LET  X=1+INT  IRN 


D*©0  LET  La  5=201#  fX  =  1  OR  X  =4-  OR  X 
=6  OR  X=7i  +81#  CX=23  +  127#  tX=3J  +1S 
3  *  ( x  =5  > 

SO  LET  Lb=28U(X=4.  OR  X  =63  +100 
#  (X=l)  +84-#  rx=2J  +122#  Cx  =33  +172#  Cx 

qg  ^  f  v  =7\ 

IS©  LET  Lc=94-#  f  X  =1.1  +SSi  < X  =2 i  +12 
4#  CX  =3?  +131#  CX  =  4-.)  +117#  CX  =5.C  +191# 
CX  =83  +199#  CX  =75 

110  CLS  ;  FOR  X =1  TO  3:  IF  CL 
,XJ|  ="©*•  THEM  GO  SUB  M  Cxi 

12©  NEXT  X 

130  FOR  X  =1  TO  9:  IF  Mi fi,x)  ="1 
”  THEN  GO  SUB  Nix) 

14-©  NEXT  x 


15©  IF  L=£  OR  L  =La  OR  L=Lb  OR  L 
=LC  THEN  GO  SUB  220.  IF  L =2  AND 
Tr =1  THEN  GO  TO  70 


16©  LET  R$=INKEY$:  IF  «$  =  **'•  THE 
N  GO  TO  16© 


1 

L 


TO  B.t  a*  =  ^  iyp 

It  TO 

f la  t£  S*5**£"  THEN  go  TO  300 
19©  IF  P=©  THEN  GO  TO  1B0 
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LET  © 
RNO  L  < 


200  BEEP  .00S,0;  LET  L=P. 

$=Q$+  t  ,v0“  BND  L  <100)  +  C  “0** 

10  J  +STR$  L 

210  LET  P$=P$-f-B$:  GO  TO  110 
220  IF  L=2  AND  Tr =0  THEN  CLS  : 
PRINT  RT  10,12;  FLRSH  1; “ENTRRNC 
E";  RETURN 

230  IF  L=2  THEN  CLS  ;  PRINT  RT 
8,4; “Well  done,  that  too*  you";R 
T  1®,  11;  LEN  P$;  **  »oves.";RT  14,8 
;  "press  any  Jtey  for  another  gajne 
.  **:  PRUSE  4e4;  RETURN 
24-0  IF  L  =La  THEN  PLOT  116,99;  D 
RRU  OUER  l;22,0;  PLOT  116, 76;  DR 
RW  OUER  1 ; 22 , 0 ;  RETURN 
250  IF  L=Lb  THEN  PLOT  100,115; 
DRRW  OUER  1;54,0;  PLOT  100,60;  D 
RRW  OUER  1 ;  54- ,  0 ;  RETURN 
260  IF  L=LC  THEN  PLOT  72,14-3;  D 
RRU  OUER  1; 110,0;  PLOT  72,32;  DR 
BW  OUER  i; 110,0 

270  IF  Tr  =1  THEN  PRINT  RT  9,11; 
"You  already";RT  10, 12;  "have  the 
";BT  11 ,12;  "treasure.  RETLiRN 
260  LET  T r  =1 ;  PRINT  RT  9,11;  "YO 
u  have"; RT  10,11; "found  the";RT 
11 , 11; " t  reasure , " 

290  RETURN 
300  LET  y  =1 
310  FOR  n  =1  TO  LEN  ©$ 

320  IF  n  =1  THEN  GO  TO 
330  IF  P$iy.*="l“  THEN 
RT  0,6; "B" 

34-0  IF  P$(yJ="0"  THEN 

Pinr  0,15’  *  *  b  *  * 

350'  if'  P*  fy.i  ="2"  THEN  PRINT  #1; 
RT  0,25; "C" 


STEP  3 
390 

PRINT  #1; 
PRINT  #l; 


360  IF  P$  Cyl  ="  l  **  THEN  PRINT  #1 ; 
RT  1,15; "D" 

370  LET  y  =y  +1 

38©  FOR  X  =1  TO  25  STEP  5;  FOR  S 
=X  TO  X+4  STEP  1.5;  BEEP  .004-,X; 
BEEP  .  004- ,  X  +S  :  NEXT  S;  NEXT  X 
390  LET  L=UBL  ©*  (n  TO  n+2) 

4-00  CLS  ;  FOR  X  =1  TO  9:  IF  H$  { L 
,XJ  ="©"  THEN  GO  SUB  HfX.» 

4-10  NEXT  X 

420  FOR  X  =1  TO  9;  IF  M$fL,x.i="i 
"  THEN  GO  SUB  NfXJ 
430  NEXT  x 
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4-4.0  IF  L=2  DR  L=La  OP  L  =1_  t>  OP  L 
=LC  THEN  GO  SUB  220 
4-50  NEXT  n.  GO  TO  150 
5000  PLOT  4.0,175;  DRRU  02,-32:  P 
LOT  4-0,0:  DRPUI  32,32:  RETURN 
5005  PLOT  24-,  175:  DRRU  0,-175:  D 
RRU  0,32.  DRRU  4-3,0:  DRRU  0,111 
ftRRU  -45 , 0 :  RETURN 


3010 > PLOT  183,143:  DRRU  32,32:  P 
LOT  183,32:  DRRU  32,-32.  RETURN 
5015  PLOT  231,175.  DRRU  ©,-175: 
DRRU  0,32:  DRRU  -48,0:  DRRU  0,11 
1:  DRRU  48,0:  RETURN 
5020  PLOT  73,142:  DRRU  27,-27:  P 
LOT  73,33:  DRRU  27,27:  RETURN 
5325  PLOT  73,142:  DRRU  11,-11:  D 
RRU  0,-87:  DRRU  -11,-11:  PLOT  85 
,80:  DRRU  1S,0;  DRRU  8,55:  DRRU 
-15,0:  RETURN 

5030  PLOT  155,115:  DRRU  27,27:  P 
LOT  182.33:  DRRU  -27,27;  RETURN 
5335  PLOT  182.33:  DRRU  -11,11:  D 
RRU  0,87:  DRRU  11,11:  PLOT  170,8 
8-  DRRU  -15.0;  DRRU  0,55:  DRRU  1 
S  ,&:  RETURN 

5340  PLOT  101,114:  DRRU  19, -19 : 
PLOT  101,61:  DRRU  19,19:  RETURN 
5045  PLOT  101,114:  DRAW  8,-8:  DR 
RU  0,-37;  DRRU  -8,-8:  PLOT  110,9 
9.  DRRU  6,0:  DRRU  4,-4;  DRRU  -4, 
4- :  DRRU  0 ,  -23 :  DRRU  -6 , 0  :  DRRU  6 
. 0 .  DRflU  4.4:  RETURN 
SgF&-rPi*£T  454,114:  DRRU  -29.-19; 
^PLOT  154, bl :  DRRU  -19,19;  RETUR 

50SS  PLOT  154.114*  DRRU  — «  j=s  rs 
RRU  0,-37:  DRRU  §; -S : PLOT ' ?Sk  o 
9;  DRRU  -6,8;  DRRU  -4 . -47  DRRU 4 
,4;  DRRU  0,-23;  DRRU  6,©;  DRRU  - 
g-L  g-  -4,4:  RETURN 

73,143;  DRRU  210.0;  DR 
2-,' 0,-110;  0 ,  —  2  :  DRR 

■' ®  •’  OUER  1;  0,110;  RET 

URN 

in6o.i=k°I  DRfiy  54,0;  DR 

RU  OUER  1; ©,-54;  DRRU  0,-1;  DRRU 

-55 , 0 :  DRRU  OUER  1 ; © , 54 :  RETURN 
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5070  OUER  A:  PLOT  117,77:  DRflU  3 
,3:  PLOT  138,98:  DRflU  -3,-3:  PLO 
T  138,77:  DRfiU  -3,3.  PLOT  120,95 
.  DRflU  —4- ,  4- ;  OUER  0:  DRAW  23,0: 
DPR  1,1  OUER  1;  0,-22:  DRAW  0,-1:  DR 
AU  -23,©:  DRAW  OUER  i,©,23.  RETU 
RN 


5980  DATA  18,4-8,96,255,255,96,4.8 
,  16 ,24-,  60, 126, 2 19, 24-,  24-,  H4-,  24- 
5990  DflTfl  8, 12,6,255,255,6, 12,8, 
24-,  24-,  24-,  24-,  219, 126,60,24- 
6000  DflTfl  5080,5010,290,5020,503 
£6 , 298 , 584.0  ,  S050 , 298 

Ml®  DATA  5005,5015,5060,5025,5© 
35 , 5065 , 584.5 , 5855 , 507© 

5028  DflTfl  "111","*',"  SSSeSSSlB"  ,  " 
1©1" , "000010000“ , "010101 “ , "01000 
©Oil"  ,  **000010101”  ,  "©00010111"  ,  ”0 
88811” , ”000000010” , ”011” , ”100000 
©00"  ,  "111*'  ,  "000100000"  ,  "101“  ,  "10 
1" , "001" , "010101" , "101" , "100001" 

,  "011"  ,  "001"  ,  '*011“  ,  “  101" 

6030  DflTfl  "100000000" , "011" , "010 
011" , "000110011" , "011” , ”011” , ”1© 
1" , "100011" , "101" , "000111" , "111” 
,  "011"  ,  111"  ,  ”0001 11**  ,  "000011"  ,  " 
100000111"  ,  •*010000101",  "101"  ,  **11 
1"  ,  **000101  **  .  "010101”  ,  "101**  ,  "100© 
10101**  ,  **001“  ,  " 000100810" 

604.8  DRTR  "011" , "010111" , "Ail" , " 
©11"  ,  **180010800",  "011",  **0©1",  "10 


0010180’*  ,  "181**  ,  "010100101"  ,  **0101 
©1"  ,  "111** 

6050  DRTR  *’  1©©1©1"  ,  "©80010101"  ,  ” 
810000000"  ,  “1©1**  .  **  1000000 10“  ,  **10 
0030001"  ,  **010100000**  ,  "011”  ,  "0000 
01"  ,  "111”,  **111”,  "©©©©©©111"  ,  **111 
**  ,  *100111"  ,  "000111"  ,  “©©©100111"  , 
"111"  ,  "000000100"  ,  **0©1"  ,  "001"  ,  "1 
00001" , ”010011" , "001" , "@©0010011 
**  ,  *'010001** 

6060  DATA  **01©11©0©0"  ,  **  100800010 
**  ,  '*110000080'*  ,  "011"  ,  "000000101"  , 
ViJ1"' "®®O101" , "00011 1 " , “101", "i 


11"  ,  "000001"  ,  "100011**  ,  "001"  ,  "000 
100011" 
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614-0  DftTfi  •’ 000000000051"  ,  **©©0©4-6 
00004- -7"  ,  ”060000050049"  ,  "00003804 
0039”  ,  "011800010009”  ,  “0000000570 
56”  ."041842000043"  .  "800000055854 
”  ,  "000000000058"  ,  ••©56000000057’'  , 
"063061064062"  ,  "031000030029" 
6150  DRTfi  ••000©00©67©66”  .. ''000060 
000859"  ,  "080008000689”  ..  "000000©© 
0065"  ,  “062063061064- "  ,  "064.062063© 
61" , "880088000068" , "066000000067 
"  ,  "061064-062063"  ,  "04-600004-504-4-"  , 
"000073008074  "  ,  "  101000000102" 
6160  DATA  " 000076075077 " , "000072 
070071"  ,  "  121000122120"  ,  ••07607000 
0060"  .  ** 000074000073 "  ,  "0000670680 
86"  ,  ”83 10S00000S2"  ,  "075077000O76 
" , "0S50S4000083" , "000080078079" , 
'* 000000082081"  ,  "000098000037" 
S17B  DfiTB  "0860©©©87©66“ , "®79©®© 
©80078”  ” 300838080089”  ,  "084-00008 

3065“ , "©S80S6000087" , "000092000© 
31" ,  "000089008098 "  .  "095000094093 
" , "000891000092 " , "000000000096" , 
"000800000100" , "093095000094“ 
618©  DATA  "0000S3035084" , "008888 
008099M , "800897000098" . "©0009409 
3095" .  *000103105104" . "0700710008 
72" , " 146144147145” , "000000102101 
" , "808187000106" , " 104000103105” , 
”0@©1S90©01SS8”  .  "000136000107" 
6130  DATA  "110000000111" , "114112 
115113"  ,  "000106000109"  ..  "  1530000© 
0152“  ,  "008800111110"..  “0001500001 
51" , “116000117118" , "000171000172 
”  “00000O000119  “  ..  “113114112115“  , 

"118116000117" , "077000076075" 


62@0>DRTR  "®®©@0©1£61£7"  ,  "000124 
&&B1S3 " , " 120121000122" , “0000000© 
0125",.-  "000123000124" ,  ••1301280001 
99"  "000122120121"  ,  “©©©000135134- 

”7 ” 127000000126 ” , " 131000000132 » , 
"000000000133"^" 126000129130" 
6210  DATA  "©00000132131  ,  ©00129 

130128“ , "000000136137“ , “ 13900000 
©136“ , "134000000135“ , "1370000001 
3S”  ,  ”000141000140"  ..  "000000136139 
• , "000143000142”, "000140000141" , 
"144147145146" , "000173000174" 
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6220  D2Tfi  105104.000103"  ,  *‘©0014.2 
00014-3"  ,  "0O0149000148"  ,  "14514614 
4147" , " ©00151000 150" ^ "0001480001 
49" , "112115113114“ , "115113114112 
"  ,  "000154000155"  " 00@©©0 156 157"  , 

"000000152153" "0000001S9158" 
6230  DP TP  "0001550S0154"  "  15700© 

000156"  ,  "160000000161"  ,  "16300018 
4162" , "158000000159" , "0000001611 
60"  ,  "000180000181"  "©0000016516© 
”  ,  "168000000167"  ..  "16216300Q164"  , 
”166000000165" , "00000016917©" 
624©  DfllTW  "B00172000171"  ,  "000000 
167168" , "17©0©©0©©169" . "00011711 
8116"  ,  "000175000176 "  .  "1471451.461 
44" , "178000179177"., "©00174000173 
" , "000176000175" f "©©©13200© 183" , 
"000181000180" , "177178000179" 


625©  DP TP  "BB  0  ^  A  ^ O  ~  *  *  **  ^34- 

000185" , "000179177178" 7 "1861870© 
@188" , "000183000182 ", "1900000001 
89" , "000194000195" , "©00185000164 
" , "187000188186" , ”008000191192" > 
"000000000193"..  "©©@@©@189190" 
626©  DflTfi  "1920©000©191" „ "196©0© 
000197" , "000188188187" , “©0019908 
0193" , "000195000194" , "0000001971 
96"  ,  "000000000200"  ji  "©@0198008199 


Three-D  Maze  II 

Once  you’ve  mastered  Scott  Vincent's 
program,  you  can  progress  on  to  this  one. 
In  this  3-D  maze  program,  written  by 
Graham  Charlton,  you  once  again  see  the 
maze  in  three  dimensions.  However,  unlike 
Scott's  program,  this  one  generates  a  new 
maze  each  time  you  run  the  game. 

The  maze  is  built  on  a  22  X  32  grid,  and 
the  computer  takes  about  a  minute  to 
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create  a  full  maze 
of  it  in  action: 


Here  are  some  shots 
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Your  object  is  to  move  from  the  top  left 
hand  corner  of  the  screen  to  the  bottom 
right  hsnd  one.  You  press  the  nRH  to  turn 
right,  "L"  to  go  left,  and  nF"  to  go 
forward.  Pressing  "H"  (for  'help')  will 
show  you  the  maze  from  above,  and  will 
show  you  where  you  are  on  it.  You  start 
facing  south. 


It  it  it  U 

sms  it##  #######  #  #####  #####  # 
#####  #### 

#  ###  ###  #  #  #######  umt  #  u  tt 

##  #  ##  #  u  tt  tt 

#  #  #######  ###  #####  #  #####  # 

##  ##  #### 
#  #########  #  #####  #  #####  #  # 
#  #  #  #  #  #  #  # 

###  #  #######  #  ###  #####  #  #  # 

#  #  #  n  a  tt*  n  u  tt  tt 

#  #####  #######  #  ###  ###  »  tttttt 

##  ##  #  ##  #  tt  tt 

#  #  #  #  #  #  #  ###  #  #  tt  tttttttttt  tt 

tt  #  #  #  #  tt  tt  #  tt  tt 
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j- £.-■  j.  n  s-  as  ■  *=£  o  o  .1 

20  DIM  3$fl000.' 

30  DIM  b$(l®00> 

4.0  LET  X  =21 
50  LET  4=31 
50  LET  Z  =1 
70  FDR  W=2  TO  £2 

30  let  cf (no  ="  nunuunnnnuuunnn 
mmnnunuunnuuuuu  •* 

90  next  w 

100  let  c  *  <x  « y  J  ="  *• 
lie  IF  c$ix+2(y)  ="*r  or  c$fx-2.- 
ms  ="#"  OR  c* ix , y +2J =”#"  OR  c$vx, 
4-a)B"#"  THEN  GO  TO  1303 
“  120  LET  Z  =Z  -1 
13©  IF  z  =0  THEN  GO  TO  2300 
140  LET  X=CODE  3$<Z> 

150  LET  y=CODE  b$fz.» 

150  GO  TO  100 
100©  LET  ai(z)=CHR$  x 
101©  LET  b$  Cz  )  =CHR$  y 
1©2©  LET  Z=Z+1 
1030  LET  r  =  I  NT  t'RND*4> 
i©4-0  LET  ca(r=0)  -  ( r  =1  > 

1050  LET  d = i r =£> - ( r =3> 

105©  IF  C  $  (x  +2*c  /  y  +2ad.>  =  "  "  THEN 

GO  TO  1030 

1073  LET  C$  (X  +  C  ,y+d.>  =”  " 

1033  LET  c$ {X42*c ,y +2*d> = 

ISO©  LET  X=X+2*C 
1100  LET  y=y+2*d 
1110  GO  TO  100 
2000  LET  X  =3 
2010  LET  y  =  3 
2020  LET  f=l 
2100  PRINT  RT  0 .« 0; 

2110  FOR  W =2  TO  22 
2120  PRINT  C$(W/2  TO  A 
2133  NEXT  W 

2140  PR  INT  FLASH  I  ;  AT  x  -2  ,  y  -2 & 
2150  IF  INKEV$=""  THEN  GO  TO  214 

rs 

25®0  CLS 

2510  LET  k  =127 

2520  LET  i =37 

1000  LET  p  =  f  f  =i  .*  —  Sf  =3.* 

3©10  LET  q - f  r =27  -  i  r  =4  i 
3100  LET  j  =0 
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3210  IF  C$  (.X  +  J*P*P  =  **»'* 

THEN  PLOT  123- K  y 33+1  :  1>RAM  2*X  ,  0 
:  PLOT  223 -X  y  33-  l  -•  2.+A  ,  ©-•  & 

O  TO  3200 
3120  LET  J=J+1 

3230  IF  C$  (X  +  J  *p -<*  y  y +J  *q*p.>  ="#" 
THEN  PLOT  I2S-Ky88+l:  DRAM  Xx4-y- 
l  .-•  4- ;  DRAW  0..-U3/2  :  ORAU  -  X  V  4-  „  -  i 
,  4-:  GO  TO  3150 

324.0  PLOT  223 -X  ,  33+  l  *3x4- ;  DRAW  X 
X4-  ..  0  :  DRAW  0,-t  *3x2 ;  DRAW  -X  X4-  ,  0 
3150  IF  c$  tx+j*P+qyy+J*q-P.>  ="#*’ 
THEN  PLOT  12S  +  K  y 33+ 1 :  DRAW  -»/*/ 
-  I  ,-4- :  DRAW  0  y - l *3 /2 :  DRAW  H/4.,-1 
/*:  GO  TO  317© 

32S0  PLOT  123  +  fc  „  33+  l  *3/4.;  DRAW  - 
X  x4-  .  0  :  DRRU  ©  ,-  -  t  *3x2  :  DRAM  X  x4-  y  0 
317©  LET  X  =  k  *3x4- 

3230  LET  l  =  l  *3x4- 

329©  GO  TO  3210 

3200  IF  X+J  *P  -21  f)ND  y  *./  *<?  =32  77? 

EN  PLOT  223 -k  .,33  +  1:  DRAW  £*X  y -2* 
t.  PLOT  12S -X  y  S3 - l :  DRAW  2*k,2*i 
322©  IF  X  =22  AND  y  =32  THEN  STOP 
3220  LET  Z  $  =  INKEY$ 

3230  IF  Z  $  =  "  *'  THEN  GO  TO  3220 
324-0  IF  Z  $  »**  f  **  AND  C  $  V.X  +p  ,.  y  +  A  .*  =  " 
”  THEN  LET  X  =X  +p  ;  LET  y=y+q 
3250  IF  z  $  =  "  r  '*  THEN  LET  r=r-i 
3260  IF  z$=**t"  THEN  LET  f=.r*i 
-3270  IF  r  =5  THEN  LET  r  =2 
3230  IF  r =0  THEN  LET  T =4 
3290  IF  Z  $  =  “h  THEN  GO  TO  220© 

33©0  GO  TO  2500 
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TWO  PLAYER 
GAMES 
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Squares 

This  program,  from  Neil  Pellinacci, 
includes  versions  for  either  one  or  two 
players.  In  both  versions,  the  game  is 
played  on  a  ten  by  ten  board. 

You  have  to  place  counters  on  the  board, 
following  the  rule  that  you  cannot  place  a 
placing  a  piece  on,  or  adjacent  to,  one  of 
the  computer's  pieces. 

The  one-player  game  is  called  'Area'  and 
you  play  against  the  computer.  The  first 
player  who  cannot  legally  place  a  piece  on 
the  board  is  the  loser.  In  this  game,  your 
move  will  be  rejected  if  it  involves 
placing  a  piece  on  or  adjacent  to  one  of 
the  computer's  moves. 

The  computer  moves  randomly  unless  it  has 
problems  finding  a  move,  in  which  case  it 
will  search  methodically.  If  it  still 
cannot  move,  it  will  admit  defeat. 

The  two-player  game  is  called  'Lines'  and 
the  winner  is  the  first  person  to  gat  five 
squares  of  their  color  in  a  row, 
horizontally  or  vertically.  A  move  is 
rajected  if  the  square  is  already  fit  lad. 
However,  if  you  mova  adjacent  to  (above, 
below,  or  to  the  side  of)  one  of  your 
opponant's  squares,  the  piece  becomes  one 
of  the  opponent's.  There  are  a  number  of 
winning  techniques  which  can  be  usad  (as 
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there  are  in  the  one-player  game).  One 
slight  mistake  can  cost  you  the  game. 

It  is  essential  that  CAPS  LOCK  is  switched 
ON  during  this  game.  When  the  program 
starts,  you  will  see  the  title  page,  and 
four  options  A  to  0.  If  you  cannot  select 
an  option,  check  CAPS  LOCK  before  you 
check  your  program. 

The  first  two  options,  one  and  two  player 
games,  are  fairly  obvious.  The  third 
option,  to  change  colors,  allows  you  to 
redefine  both  players'  colors,  by  pressing 
the  appropriate  key,  1  to  7,  when  the 
prompt  appears.  The  two  colors  cannot  be 
the  same. 

Asking  for  information  will  give  you  a 
brief  rundown  on  the  aims  of  the  game. 

When  you  play  a  game,  you' ll  be  presented 
with: 

PLAYER  ONE  NAME  CENTER'  TO  SKIP) 

Type  your  name,  or  if  the  player's  name  is 
the  same  as  before,  simply  press  ENTER. 
The  same  goes  for  player  two,  when 
necessary . 

The  display  shows  the  board  when  the  game 
is  in  progress,  together  with  a  score 
display,  which  shows  which  player  is  which 
color  and  how  many  squares  of  that  color 
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there  are  on  the  board.  A  prompt  appears 
at  the  bottom  right  of  the  screen, 
indicating  whose  move  it  is.  Below  this 
is  the  last  move  entered,  displayed  in 
white. 


Enter  your  move  as  a  number  and  a  letter, 
eg  7A,  ID  in  that  order.  Entering  AA  will 
terminate  the  game,  and  return  you  to  the 
options  page. 


The  program  is  written  entirely  in  BASIC 
and  is  made  up  from  several  modules  which 
are  linked  together  by  the  main  routine, 
lines  540  to  740. 

50©  REM  LINES 
510  REM  *•*■**  * 

530  GO  SUB  G000:  GO  SUB  3000 

54-0  GO  SUB  95S3:  SOR&ER  S.  PS? 

R  © ;  CL's  ;  ? 

60©  GO  SUB  92S8:  PftPER  INK 

700  GO  SUB  SO©©:  SO  SUB 
EM  PLAYER  ONE 
705  IF  UP  OR  PE  THEN  GO  TO  5000 
70?  GO  SUB  500© 

7 1©  IF  NP  =  i  THEN  GO  SUB  3000 
720  IF  NP=2  THEN  GO  SUB  4-000 
725  IF  UP  OR  «F  THEN  SO  TO  5000 
74.0  GO  TO  700 
100©  STOP 

2000  REM  PLflVER  ONE 

201©  BEEP  PRINT  INK  6;RT 

is  .  22;  -‘PLHYEft  uNt  i  Hi  1  7  , 22;  PS 
202©  PRINT  RT  13,22,  INK  6; "TO  M 
DUE :  *• ; 

2030  GO  SUB  2600 ;  PRINT  RT  13,23 
R$» 

2031  IF  RF  THEN  LET  fiF=l;  RETURN 

2032  IF  BCX,V3  -£  >0  THEN  GO  TO  203 
0 

2034-  IF  NP=1  THEN  SO  TO  2100 
2035  LET  LL= CY-23 i2+l:  LET  CC=fX 
-2J  *2  +  1 
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LET  PIS  -Pis-r X  :  LET  B<X^Y5  =1 
;  PRINT  RT  LL,CC;  OVER  1;  RRPER 
C 1 ;  **  "  ;  RT  LL  *  1 CC I  " 

2050  XF  B  C  X  ,  V  *  1 }  =2  OR  S  i  X  „  V  -1.!  =2 
OR  B(X  +  1,Y»=2  OR  B{X-i,Y'.i  =2  TMiz 


2055  XF  NP=i'THEH  LET  Ui~  -O .  Ri=TU 

«'V  <*»% 

3000  LET  UF-0.  OO  SOS  7S00 
2070  RETURN  v  v , .  _ 

2i©0  IF  B (XjY+1) =2  OR  BtX,Y-i 
OR  B  CX  +  i  ,Y)  =2  OR  B  CX-1  ,  Y  .*  =2  *  HE 

H  GO  TO  2030 
211©  GO  TO  2035 
2533  REM  MOOS 

2S0S  INPUT  LINE  R$.  IF  LEN  R*  <  >2 
THEN  GO  TO  260© 

2505  XF  R$  =  ,!ftS"  THEN  LET  RF  =1  -  H 
ETURN 

2610  XF  CODE  -;4-S  OR  COOc 

(I>>57  THEN  GO  TO  2500 
2620  XF  CODE  R$  C2i  -tS5  OR  CODE 
C2J  >74-  THEN  GO  TO  260© 

263©  LET  X=CODE 

264-0  LET  YaCODE  R$  *  21  -S3 

265©  RETURN 

3000  REM  SPECTRUM 

3010  PRINT  RT  16,-22;-  INK  S;"PlBY 
ER  TWO" ; RT  17, 22; 0$; RT  IS , 22; ' TO 
HOWE: " 

3015  FOR  R=I  TO  15  _ 

3020  LET  X=XNT  iSHDtiS.’  +2;  LET  T 
=  INT  (RN£>*  10J  4-2  _  ___ 

3030  IF  B(X,Y><>0  THEN  GO  TO  302 
0 

304-0  XF  B  tX-Pl  ,  V  J  =1  OR  B  iX-I  ,  Y  >  =1 
OR  B i X ,  Y+l A  =1  OR  S  t X , V —I A  =1  THE 
N  NEXT  R:  GO  SUB  350©:  XF  Wr  THt 
N  RETURN  _ 

304-5  LET  LL  =  fY— 2>  *2  +  1:  LET  Ot  =sX 
-2 A  *2*1 ;  PR XNT  RT  LL , CC ;  OVER  1 ; 

PRPER  C2;  “  **  ;  RT  LL +1 ,  CC  £  , 

3050  LET  BtX,Y*A*2;  LET  P2p=P2b+1 
:  RETURN 
3500  REM  SEARCH 
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3510  FOR  X'=2  TO  11:  FOR  Y=2  TO  1 
1:  IF  B  *X ,Y)  <  >0  THEM  OO  TO  3540 
3=20  BtX'+l.*/}  =1  OR  S  iX-l-V:  -1 

OR  B  U,Y  +  ii  =2  OR  erx,  v-a.i=l  Tfte 
N  GO  TO  354-0 
353©  RETURN 

354-©  NEXT  V:  NEXT  X:  LET  OF  =1 :  R 
ETURN 

3999  RETURN 

4-©0©  REM  PLOVER  TUG 

4-01©  SEEP  .3,-18:  PRINT  INK  S;PT 
16,22; "PLPYER  TUO";PT  17,22;G$ 
4020  PRINT  PT  13,-22;  INK  3;  “TO  H 
OUE ;  ; 

4-©3©  SO  SUB  2300:  PRINT  ST  IS. 23 

4.031  IF  fiF  THEN  LET  PF  =2 :  RETURN 

4-032  IF  S  LX  ,Y<  <  >©  THEN  SO  TO  4-03 
© 

4-035  LET  LL=  t'Y-2>  *2  +  1:  LET  CO  =  t X 
-2) *2+1 

4- 04©  LET  P2S=P25+1.  LET  SiX,YA=2 

:  PRINT  PT  LL.CC-;  OVER  I;  PPPER 
C2;  **  " ;  PT  LL+I  ,-CC;  " 

4050  IF  BfX,V>l)=l  OR  Bt'XT-lJ  =1 
OR  B<X  +  l,Yi=I  OR  B  iX-I  ,  Y>  =1  THE 
N  LET  E  LX  ,V)  =1:  PRINT  PT  LLfCC; 
OVER  1;  PPPER  Cl;"  ” PT  LL+I  ,CC 
LET  PIS=P1S+1:  LET  P2S  =P2 

5- 1 

4055  SEEP  -2,20 

4050  LET  UF=0.  GO  SUB  7500 

4070  RETURN 

5000  REH  GPHE  OUER 

5©10  BRIGHT  1:  PPPER  1.  FOR  P-13* 
TO  21:  PRINT  PT  B,22;" 

**  :  NEXT  R 

502©  PRINT  PT  13,23;  ’'GPHE  OUER** 
5030  IF  PF  THEN  PRINT  PT  15,24;*’ 
STOPPED" ; PT  IS , 23; "BY  PLPYER" ; PT 

^ h  27  '  j^p 

5040  IF  OF  THEN  PRINT  PT  25,23;*’ 
PLPYER  UF; Si  IS, 25; "SINS" 

5050  PRINT  PT  20,23;  INK  6;  "PRES* 
S  PNY" ; PT  21,26; "KEY” 

506©  BRIGHT  0.  PPPER  0.  SO  SUB  S 
©00:  FOR  K  =  —20  TO  40  STEP  2:  BEE 
P  »  05  ,  K :  BEEP  -  ©1 , 30 -K  :  NEXT  K 
5070  PROSE  0:  SO  TO  540 
S00©  REH  PRINT  SCORES 
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S01<2  PRINT  RT  2,22;  INK  7;  "FLftYE 
R  ONE";RT  3,22;P$;RT  4-,£3;  INK  7 
;  PAPES  Cl;  ~0~;  paper  3;  ink  s;  " 

’■  '  -  **  *r 

6©2B  PRINT  RT  9.22;  INK  7;  "PLRYE 
R  TWO";  RT  IS,22;§$;RT  ii-23;  XNK 
7;  PAPER  C2; PRPER  3;  XNK  5 

-  *  *  tt  .  p*“\'^  -  *»  ft 

603© *  RETURN 
7003  RETURN 

?5@S  REH  CHECK  POP  WIN 
7S1©  FOR  X  =2  TO  II.  FOR  V =2  TO  1 
1 

752©  XP  B  CX.-Y)  t  >©  THEM  LET  R=£  LX 
,Y> :  SO  SUB  7000:  IF  UF*1  THEM  R 
STURM 

7530  NEXT  Y';  NEXT  X;  RETURN 

7300  LET  X 1 =X ;  LET  Y1*Y 

7310  FOR  Z=I  TO  4:  LET  Xi=Xi*I: 

IF  B(XLYi)  OR  THEM  SO  TO  733© 

732©  NEXT  Z;  LET  WF=R:  RETURN 

733©  LET  XX=X:  LET  Yi=Y 

734©  FOR  1=1  TO  4.  LET  YI-YIti: 

IF  B{Xl,Yi)  OR  THEN  SO  TO  7330 

735©  NEXT  Z.  LET  WF=R.-  RETURN 

7563  RETURN 

7399  RETURN 

300©  REM  URR2HSLES 

3010  Dili  P$TX0)  ;  DIM  S$T±0)  :  LET 
Cl =4:  LET  C2=5 
3020  DIM  3  « 12, 12) 

303©  POKE  23309,100 
350©  RETURN 
350©  REH  INFO 

351©  BORDER  1.  PAPER  1.  INK  S:  C 
LS 

3520  PRINT  RT  1,-13;  "RR£R*';RT  2,1 

3;  “ - " 

3630  PRINT  '  TRB  3;  '&  ONE  — PLRY'ER 
GRME  ** '  *  '  **  YOU  HOST  BERT  THE  CON 
PUTER  -  YOU"  ••  '  "PLACE  SCURRIES  ON  T 
HE  BOPKD  SO  "  "TrffiT  NONE  «RE 
RDURCEMT  TO  THOSE  " '  “  "OF  THE  OOH 
PLIER  .  ~ 

354©  PRINT  THE  COMPUTER  UILL 

PLRY  LIKEUISE"'  '  “RND  UILL  TELL  V 
OU  WHO  HRS  WON," 

3550  PRINT  -  -  INK  7;  “  PRESS*  RN 
Y  KEY  TO  CONTINUE 

3630  PROSE  ®:  BORDER  3:  PAPER  6: 
CLS  :  INK  © 
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0670  PRINT  ST  I 12 'LINES  ;  RT  £ 


S6S0  PRINT  '  TRB  7; "ft  TWO-PLSYER 
SSHE"  •  •'  -  **  YOU  MUST  SEST  V  Oi.tR  OP 
POHEHT  BY"  ‘  "  SETT  INS  FIVE  vSFHRt 
S  IN  ft  aoy"  ■■  '  BEFORE  HE  OOES .  " 

563®  PRINT  THE  LINES  CRN  BE  H 

ORIZONTRL  OR”  '  '  "VERTICAL-  -  " _ 

3700  PRINT  ‘  INK  2;  **  PRESS  ftN 

V  KEY'  TO  CONTINUE”  _  _ 

3710  PRUSE  0:  BORDER  PRPER  4-: 

CCS  :  INK  0 

§715  PRINT  ‘  •  - TftS  7;  “SOLRSEs  CS.n 
t i nued" ; TRS  7 ; " - 


3720  PRINT  •'  ”  IF  YOU  PERCE  R  SO 

UflRE  ON  THE  **  '  "  "BORRD  RDURCENT  T 
O  ONE  OF  YOUR”  '  '  "OPPONENT ' S  ,  IT 
WILL  IHHEDIRTELY” ' ‘"BECOME  ONE  O 
P  HIS.” 

3730  PRINT  *  •'  '  INK  7;  ”  PRESS  H 

NY  KEY  TO  SELECT  GftHE” 

374-0  PR  USE  0:  GO  TO  0500 
•5030  REM  UDG'S 

•5010  FOR  R=0  TO  5:  POKE  tfSft  "ft"  + 
. 1  -  POKE  U5P  1.  J&Xf  H_ 

002©  POKE  USR  "ft" +7, 255:  POKc  US 

pj  **3*s  255 

•3030  FOR '*0=0  TO  5;  POKE  USR  ”C"  + 
ft 123 .  POKE  USR  ”D”  +  7-ft ,  ISO  .  HEs 

904.0  POKE  USR  *'C"+7,2SS:  POKE  US 

R  *'D** 255 

90FS  POKE  USR  "E"  ,£55;  FOR  ft=l  T 
O  S:  POKE  USR  "E”+P, 123.  NEXT  ft; 

POKE  USR  "E"+7,25S 
■5030  RETURN 

3200  REH  DRhU  SOftRB 

•5210  PRPER  0.  CLS  .  INK  7  _ 

0003  S=^SD  d— +  TTi  eg  STEP  R  _■  p+flft? 


NEXT  R 

■3230  PRPER  7;  INK  2.  FOR  ft=0  TO 
■3:  PRINT  RT  0,ft*2+I;ft;  "  ”  ,  RT  21, 

ft+2+I; R;  **  NEXT  R 

324-0  FOR  R=I  TO  10:  LET  ftl=ft*2 
•325©  PRINT  RT  R1 ,0;  CHk$  Sft-PB4U  7ft 
T  Hl,£i;CHR$-  f R+34I  ;  f¥T  31-J-i  ,07  ” 
“;8T  ”  '* :  NEXT  ft 
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926©  PHINT  f+r  0,  ©.;  -  **;RT  "  *' 

jfiT  1,21;"  **;RT  0,21;  '*  •* 

2300  RETURN 
ssee  Rot  options 

2505  LET  RF=©.  LET  UF=©;  LET  PIS 
— 0 :  LET  P2S-0.  DIM  8  £12, 123 
2510  BORDER  2.  PAPER  2.  XMK  7 :  C 


y5£0  PRINT  ST  i,9;"J9»SO tJHRES#** 
";RT  3,0;  “WRITTEN  SV  NEIL  PELLIN 
ROCX  iS33!* 


9530  PRINT  ‘  -  - TRB  12; "OPTIONS" 
954-0  PRINT  TRS  5;  "  CHJ  ONE  PLflV 

-TAB  5; " £53  TWO  PL  RYE 

•TAB  6;  " £03  CHftNSE  CO 


**  .*  ** 


CHOOSE  YOUR  OP 
PRESSING  THE  fiP 


SR  GRHL 
255©  PRINT 
R  GflHE" 

S568  PRINT 

lours**  _ 

25SS  PRINT  ' TAB  3; " £03  INfORNPTl 
ON** 

9578  PRINT 

TION  NOW  BY  - - 

PROPRXRTE  KEY  *'  _  __  , 

953S  XF  INKEYS="S“  THEN  LET  H P=1 

-  GO  TO  2700  _ 

2590  IF  XNKEY$=C*B"  TTfEN  LET  NF-H 
•  GO  TO  2300 

2595  IF  INKEY  $=*’£>**  THEN  GO  TO  Ss> 
08 

2500  IF  INKFr'S  '.  >  **C"  THEN  GO  TO  2 
580 

9S10  BORDER  7.-  PAPER  7;  CLS  .  IN 
W,  t  ;  „pgR^T_  '  *V*pLgyER  ONE  COLOUR 
.  FOR  THE  COLO 

UR  YOU  WftNT  NOW " 

262©  LET  ftsCODE.  INKEY $ 

9t>'3©  IF  P  <49  OR  F  >  S5  THEY-  20  TO 
2620 

264-0  LET  Cl  =R— 4-3 :  BEEP  .5,  Cl 

'  '  "PLAYER  TWO  COLOUR 
v  PREt>t>  THE  KEY'  FOR  THE  COLO 
UR  YOU  WRNT  NOW** 

2660  LET  A=CO0t  XNKEY‘5 ;  IF  R<4-S 
OR  R  >55  THEN  GO  TO  9660 
967®  LET  C2=R-4-3:  XF  C2=Ci  THEN 
GO  TO  OSS© 

2630  BEEP  .5,02:  GO  TO  9500 
970©  INPUT  "TYPE  YOUR  NAME  £  *'  ENT 
ER  TO  SKIP!  LINE  R$ 

9710  XF  A$=*"*'THEN  GO  TO  973© 
9720  LET  P$~R$ 
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373.®  LET  e$="SPECTRUM" .  RETURN 
y.sse  ZNFUT  :tPLRYER  ONE  MANE  LENT 
ER  TO  SKXF3  LXNE  PS 

33X0  XT  flS=““  THEN  SO  TO  333® 

332®  LET  P*=AS 

9800  INPUT  "PLAYER  TUO  NAME  IEMT 
ER  TO  5K  JPJ  " :  LINE  PS 
004-0  XT  THEM  SO  TO  S36B 

9858  LET  ©$=A$ 

•3SS©  RETURN 


User  Defined  Graphics 
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Four  in  a  Row 

From  the  fertile  mind  of  David  Perry  comes 
this  version  of  FOUR  IN  A  ROW.  The  program 
contains  full  instructions  and  has  a  hires 
load . 

This  is  the  program  in  action: 


1  2  3  4-567 


And  here's  the  listing  for  it: 


£  FOR  TO  7--  RES&  a .  POKE 

USR  “a "  ,  a  MEXT  ft:  SO  SOB  bSSS 

.  dim  r  i'7,-7:1 

5  DftTfi  60  I£v 
i  3.2b  j  t?© 

10  BORDER  0:  PAPER  0:  IN  K  7:  B 
RIGHT  I:  CLS 

20  PRXMT  RT  3,-7;  "1  2  3  4-5  6-7 


4->3  FOR  ft  =52  TO 
50'  PLOT  ft  ,  4  0 
60  DRfH-f  O  -  2.00 
6®  NEXT  ft 


iGG  STEP  Xto 
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3S  FOR  n  =4-4-  TO  1 .4-2  STEF*  2& 

lee  plot  se,Fi.  DRftu  220,0 

1  2.0  NEXT  n 

120  FOR  .O  -34-  TO  4-4-.*  PLOT  25.-0; 
D-RRU  168,0;  NEXT  r* 

130  LET  p lay  =1 
14-0  BRIGHT  0 


S00  LET  P lay =1;  PRINT  RT 
INK  7;  PRPER  2;  FL.9SH  I .  " 

1  PRINT  BT  13,3;  B$; 
210  INPUT  "HOyE  RLfixER  1 
22@  IF  mo  >7  OR  »0 <2  THEN 

21© 

23©  GO  SUB  2000 
250  LET  pi  ay =2;  PRINT  RT 
INK  7;  PRPER  2;  FLBSH  2;  “ 

2  **:  PRINT  BT  13,3;B$;  *' 
260  INPUT  "MOVE  PLfiYER  2 
270  IF  mo >7  OR  »D<2  THEN 


26  ,  Sj 
PLAYER 

t* 

•?  ”;ao 
GO  TO 


18,8; 

PLBYER 


?  **;»o 
GO  TO 


260 

26©  GO  SUB  1060 

29©  GO  TO  200 

2©00  GO  TO  2060 

2©60  FOR  n=S  TO  2  STEP  -2:  IF  r C 

n,BO)=l  THEN  NEXT  r< .  RETURN 


2070  LET  r m ,SO) =1 

1060  IF  play =2  THEN  PRINT  RT  3+ ( 
n*2>  ,  O»o*2)  +5;  INK  2.:  BRIGHT  l.C  ” 

1062  IF  pi ay =2  THEN  PRINT  RT  3+1 
n*2!,  <»c*2>  ->-5;  INK  5;  BRIGHT  2;  ” 


109©  RETURN 

6000  BORDER  2:  C-LS  :  PLOT  0,0:  D 
RflU  0.,  275;  DRfiU  255,0;  DRAW  0,  -2 
75 ;  ORRU  -255  ,-  0 

5020  PRINT  RT  2,3;  BRIGHT  i;"F  O 
U  R  I  M  R  R  O  U  *  ‘  ” 

5020  PRINT  RT  3,3;“ 


5030  print  RT  4- ,2;** In  the  game  o 
f  “ ;  FLASH  2;  PRPER  2;  INK  7; "FO 
UR  IN  R  ROU1 

504-0  PRINT  TAB  2;"yo U  #ust  try  t 
o  defeat  your  ** :  PRINT  TAB  1;  “op 
ponent  by  connecting  four  of”:  P 
RINT  TAB  2; “your  counters  in  a  r 
Ohi  either”;  PRINT  TRB  2;  "UERTICR 
LLY , HORIZONTALLY  Of";  PRINT  TRB 
2 ; "DIBGONRLLY. .  ,  eg." 
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5050  PLOT  8,@:  DRfiW  0,175 
5050  PRINT  ST  #§#".-  PRINT 

RT  10..11;  ;  RT  11,  I  i ;  RT  xa 

,11;  ;  RT  13,11;  **#" 

5070  PRINT  RT  1©  ,  15;  :  RT  11,16 

;  "#’■ ;  RT  i£,i  t;  ;  sr  13,  is; 

508©  PRINT  RT  10 , 26 ; "f " ; RT  11,35 
;  "#*'  ;  RT  12,24;  ;  RT  13 23; 

see©  INPUT  "Player  1  s  ns se  ?"jR 
IF  LEN  R$>X0  TNEN  GO  TO  5090 
5091  PRINT  RT  15,1;  INK  7;  PAPER 
2;  FLRSH  X;  "PLAYER  l.  '*;ft$ 

5X00  INPUT  "Player  2  ~s  name  fc 

«:  IF  LEN  JB$>10  THEN  GO  TO  5X00 
5101  PRINT  RT  18, X;  INK  7;  PRPER 
3;  FLRSH  X 7 "PLRYER  2:  b* 

51X0  PRINT  RT  18,1; "PLRYER  X="; 
INK  2J 

512©  PRINT  RT  19, X; "PLRYER  2=**; 
INK  5; 

513©  PRINT  RT  2©,-l;  FLRSH  li  INK 
a; "  PRESS  ENTER  TO  UOHREHGE f f * 

" :  PRUSE  © :  RETURN 
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Tanx 


This  is  a  two-person  game,  in  which  you 
have  to  try  and  shoot  the  turrent  of  your 
opponent's  tank. 

Here  are  the  controls  for  player  one: 

Left  -  Z 

Right  -  X 

Up  -  2nd  row/ left 

Down  -  3rd  row/left 

Fi ra  -  Top  row/left 

And  these  are  the  ones  which  player  two 
should  use: 

Left  -  M 

Right  -  Symbol  Shift 
Up  -  2nd  row/right 
Down  -  3rd  row/right 
Fire  -  Top  row/right 

You'll  notice  that  the  tanks  disappear 
for  a  moment  when  a  shell  is  fired,  but 
they  can  still  be  hit,  and  can  still  move 
out  of  the  way.  You  must  not  run  over  any 
of  the  mines  dropped  by  the  shells.  You 
have  three  lives  each  and  the  first  to  die 
is,  naturally  enough,  the  loser.  TANX  was 
written  by  Neal  Cavalier-Smith. 

10  REM  TRNX 

15  REM  Wes  l  CSVSUer-Sffli  th 
2©  LET  X 1 = INT  (RNDS20) ;  LET  y 
=  5;  LET  X  2  =INT  CRND*20)  :  LET  ya 

25 
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H  \\ 


30  LETT  y  lb-1.  LET  X  lb=0;  LET  M 
2b^-l:  LET  X£b=0 

4-0  LET  CC-0;  LET  Ci=0;  LET  iif 
£2=3;  LET  U?£l=3 
30  GO  SUE  13S0 


63  GO  sue  100 

70  GO  TO  63 


20  0.  PRINT  FIT  Xl,ylJ  "  " 

202  IF  Xlb=0  THEN  PRINT  RT  Xl,'J 
i+yib;  "  •• 

203  IF  *4  2b=0  THEN  PRINT  RT  Xi+X 

2  b  .  y  i;  ■'  "  _ 

2  2©  IF  IN  55022  <255  RND  X  2  < 20  T 
HEN  LET  X2-X2+2.  LET  X2b=2:  LET 


y  2  b  =0 

220  IF  IN  54510 <255  RND  Xl>0  TH 
EN  LET  X1=X1-1:  LET  X2b=-1.  LET 
y  2b=0 

230  IF  IN  55276=253  RND  M  2  > 0  TH 
EN  LET  <4  2  =*4  2 -2:  LET  yib=-2.  LEi 
X  1  b  =© 

24-0  IF  IN  55276=251  RND  y  1  <  30  T 
HEN  LET  yl=yl+l:  LET  yib=l:  LET 
X  2  b  =  0 

250  PRINT  RT  X2,y2; "  " 

2  52  IF  X2b=0  THEN  PRINT  RT  X 2  .  y 
2+yHb;  ••  "  V 

2  53  IF  y 2b =©  THEN  PRINT  RT  X  2  +X 


2  b  ,  !4  2  ;  ' ' 

26©  IF  IN  4-9250  <255  RND  X2  <20  T 
HEM  LET  X2=X2+1:  LET  X2b=l;  LET 
y  2  b  =  0 


170  IP  IN 

5734-2  <255 

RND 

X  2 

>0  TH 

EN  LET  X2=X 
y  2  b  -0 

2-1  ; 

LET 

X  2  b  = 

-1  : 

LET 

133  IP  IN 

32755  —251 

RND 

ys 

>5  TH 

EN  LET  <42 

2-1  : 

LET 

M  2b- 

-1  ; 

LET 

X  2  b  =  0 

290  IF  IN  32756=253  RND  y 2  <  30  T 
HEN  LET  y2=y2ti:  LET  4  2  b  =  2 .  LET 
X  2  b  =  © 

200  REM 

202  IF  IN  51438 <255  THEN  LET  CC 


202  IF  COS  THEN  GO  SUB  300 

210  IP  SCREENS  C  X  2rX2b  .  M  2  2  b  > 

r' .  **  ThcN  GO  10  2300;  PRINT  RT  X 

,yl;CHR$  144 

211  PRINT  RT  X  1  ,  y  l;  CHR$  14-4- 

212  IP  IN  63io6;£55  THEN  LET  Cl 
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II  H 


£13  IF  C1>0  THEN  GO  SUB  4-00 
£24-  2F  SCREENS  f  X  2  +X  2  b  .  y  2  +M  2  b.>  = 
THEN  GO  TO  £200.  PRINT  RT  X2 
.  42;CHRi  24-4 

220  IF "  X  2  b  =0  THEN  PRINT  RT  Xl.y 
2  +  >4  2  b  ;  C H R$  2 4- 6 

230  IF  yib=@  THEN  PRINT  RT  Xl+X 
ib.yl;  CHR3  245- 

235  IF  SCREENS  f  X  2  +X  2  b  ..  y  1  +y  2  b  J  = 
**."  THEN  GO  T£?  2200;  PRINT  RT  Xl 
y  2.:  CHRS  2-4-4 

240  PRINT  RT  X2,y2;CHR$  144 
2S0  IF  X2fc=3  THEN  PRINT  RT  X2,y 
2  4‘4  2b;  CHR1  246 

260-  IF  y2b=S  THEN  PRINT  RT  X2tX 
2b,y2; CHR$  245 
27©  RETURN 
30©  REM 

310  IF  C C =3  THEN  LET  X2S  =X2+X2b 
.  LET  y  2s  =y  2  +y  2  b 

322  FOR  C =0  TO  9 

312  IF  C  — ©  THEN  GO  TO  335 
3  25  IF  y  24  <  2  THEN  LET  -4  2  b  =  1  :  L£ 
T  X  2b- 1 NT  iRND»3J  -1 

326  IF  y2s  >29  THEN  LET  <42b  =  -l  : 
LET  XHb-INT  (RND*3J -1 

3  27  IF  X2i >1S  THEN  LET  X  2  b  =  -  2  ; 
LET  y2b  =  INT  sRND  S-3  J  -1 
31-3  IF  X2i  >  IS  THEN  LET  X2b=  -1 
LET  y 2 b  =  INT  iRNDffS.i  -1 

323  IF  X2S<1  THEN  LET  X2b=2.  LE 
T  y  2  b  =  I  NT  CRNOffOJ  -2 

32S  XF  X  =>;  1  AND  y=yl  OR  X=X2+Xl 

b  AMD  y=yiryib  then  go  sub  2200 

330  PRINT  RT  X  ..  y;”  “ 

335  PRINT  RT  X  2S  ..  y  2S  ;  "  .  " 

535  LET  X  =X2S  ;  LET  y  =y 2; 

34©  LET  X2S=X2S+X2b 
350  LET  y25=42S+y2b 
360  NEXT  C 
37©  LET  CC-Cl-1 
3S0  RETURN 
400  REM  Sh£ 111 

410  XF  C i =3  THEN  LET  XlS=Xl+Xlb 
:  LET  y IS  =y 1+y i b 
412  FOR  d=0  TO  9 
422  IF  d  =0  THEN  GO  TO  435 

425  IF  yl£ <2  THEN  LET  ylb=2;  LE 
T  Xlb= INT  (RND*3) -1 

426  IF  y Is  >29  THEN  LET  ylb  =  -l: 
LET  X lb=INT  CRNB*3J -1 
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41?  XF  X  IS  >  13  THEM  LET  Xlb=-X: 
LPT  y  X  b  =  XNT  fRND*3)  -1 
410  XP  X  IS >16  THEN  LPT  Xlb  =  -1; 
LPT  yib=XNT  CRND*3) - 1 
413  XP  X  IS  < 1  THEN  LPT  Xlb  =  l:  LE 
T  »42b  =  XNT  fRNO*3i  -1 
4£0  IP  X=X2  HMD  M=y2  OR  X=X2+X2 
b  RN2>-  y  ^ySryHb  THEN  GO  SUB  2000 
400  PRINT  RT  X  .  y  ;  "  " 

430  PRINT  RT  X1S  ,  MIS  ;  “*  .  '■ 

400  LPT  X=X1S:  LPT  y=ylS 
440  LPT  X  IS  =X IS  +X 1 b 

400  lp  j  y is  =y is  tyib 
460  NEXT  d 


470 

*%**M2* 

999 

1000 

X»10 

1020 


LPT  C1=C1-1 
HETURH 


REM _ 

2=X4-4-  TO  14-6 
OR  X  =0  TO  *5* 

RERD  S ;  POKE  U5R 


(CHRt 


2)  +.X 


104-0  NEXT  X 
1S50  NeXT  I 

1050  DfiTfi  63.126. 255 , £55 , 255 , 255 

,  126 . 5S  .  24-  .  24-  ,  24-  ,  24- ..  24-  ,  24-  ,  24- ..  24  .. 
0,0.0. 255 , 255 ,0,©,© 

1S33  RETURN  _ 

200-0  PRINT  RT  X 2 ,  y 2 ,  FLASH  X;  “SS 

lilt  g” 

2003  FOR  Z  =5  TO  10© :  NEXT  Z 
20©5  PRINT  RT  X 2  ,  y  2  ;  FLfiSH  0;  " 


201© 
2020 
se  i ; 


LET  l i  f £2=1 i  f  62-4 
IF  lifS2=0  THEN  PRINT  INVER 
FLfiSH  1  :  •"  G  R  M  E  OVER 
Player  1  wins 
•* .  STOP 


2©3©  GO  TO  103 

220©  PRINT  RT  Xl,yl;  FERSH  X; "S® 
iStS" 

2205  FOR  X  =5  TO  100:  NEXT  X 

22©S  PRINT  RT  X  1  ,  y  1  j  FLfiSH  0;  " 

1  * 


2210  LET  Li f  £  1  =  l  i ffii-l 

2220  IF  li f£l=3  THEN  PRINT  INVER 

SE  1J  FERSH  i; ”G  ft  K  E  OVER 

Player  2  wirvs 

“  :  STOP 

2222  GO  TO  XQS5 
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MACHINE  CODE 
UTILITIES 
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Memory  Monitor 

This  program  by  David  Perry  allows  you  to 
examine  the  contents  of  ROM  and  RAM.  It 
has  good  hex/dec  and  dec/hex  routines,  and 
allows  you  to  move,  save  and  load  memory. 


THIS  PRGGRfihHE  MILL  THE 

COTENTS  OF  YOUR  ROM  &  RAM  IN 
THE  FORM  OF  RDDRESS ,  ADDRESS  IN 
HEXfHJECIMftL,  CCCItfflL  UhLL'E  RT 
THAT  ADDRESS  ,  HEXADECIMAL  UALUE 
AT  THAT  ADDRESS  4  THE  CHARACTER 
CORRESPOND IMG  TO  THE  URLUE  AT 
THE  ADDRESS. 

THE  PROGRAMME  MILL  RE SO  RLLOU 
YOU  TO  FREELY  HOUE  MEMORY  AROUND 
f  CONVERT  HE.XSDEC XHAL  TO  DECIMAL 
AND  U ISA  UERSA  AND  ALSO  TO  RUN 
ft  ROUTINE  FROM  ANY  ADDRESS 


PDDR +HEX : 

DSC  : 

HEXPEEK 

;  CHR$ 

0 

243 

00F3 

HOT 

3. 

0001 

ITS 

COPS 

2 

0002 

17 

0011 

3 

0003 

255 

©0FF 

COPY 

4- 

0004 

255 

00FF 

COPY 

5 

00©5 

105 

0©C3 

NOT 

5 

000b 

203 

00C5 

THEN 

~7 

0007 

17 

0011 

*7 

3 

0003 

4-2 

082ft 

* 

2 

0002 

03 

005D 

3 

10 

0002 

Q2 

885C 

\ 

11 

000B 

*34- 

0022 

<•» 

12 

000C 

05 

005F 

13 

000D 

02 

805C 

V 

0005 

24- 

0013 

7 

15 

000F 

37 

004-3 

C 

IS 

0010 

105 

00C3 

NOT 

X? 

0011 

24-2 

©0F2 

PftUbE 

A: NEW  ADDRESS  HrHEX-DEC 
E: EXECUTE  CODE  D: DEC -HEX 
5-Sm.JE  /  L-LGRD  BYTES. 

M — HOVE  MEMORY  C- CONTINUE 
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3.  REM  it  wmm—mmt 

2  RBI  |  HEMORY  HtJftITOR  \ 

3  REM  V  €>  DRUID  PERRY  i 

4-  REM  1  1933 

5  REM  ft, ,1  i  . . . .  i  „  — 

6  REM 

REM 

£0  BRIGHT  0:  GO  SUB  728:  INPUT 
"START  ADDRESS  ?  ";ADD 
38  GO  TO  330 
4-0  REM  HEX-DEC 
50  PRINT  ST  28,8;  " 


HEHORY  HERITOR 

€>  DRUID  PERRY  ? 
1933 


60  PRINT  ST  20,0; 

78  LET  Ft  =@ :  LET  E=0 
©0  INPUT  “Hex-  Characters  T  "i 
R*:  LET  O$  =  ”0‘- 
qg  LET  & =0 

108  IF  LEM  ft$>3  THEN  GO  TO  120 
11©  LET  S$=G$-fA$:  GO  TO  100 
12©  LET  U  =4-096.  LET  R=E 
13@  FOR  R=1  TO  4- 

14-0  IF  FN  PiS$(RJ  )  <E  OR  FN  P(fl$ 
tR) ) >15  THEN  GO  TO  100 
150  LET  R=»-M4#F.N  P  fS$  i'S>  I  .  LET 
U=U/i6 
160  NEXT  R 

178  PRINT  "  Hex  sde  t  i  ssa  t  :  R 

$;  ”  ** 

130  PRINT  "  Deciaal :  **;  ft;  ” 

u 

190  PAUSE  0.  RETURN 
200  REM  DEO -HEX 
21©  PRINT  ST  20,©;  ** 


220  PRINT  RT  28,8; 

23©  INPUT  "Decimal  No*  be  r  T  R 
24©  IF  ft > 65535  OR  R<0  THEN  GO  T 
O  230 

250  PRINT  AT  20,6;'*  DfiCilSl;  "  J.  Ft 
;  ”  *';  .  PRINT  RT  21,5;  "  Hex  3<f e c  i  m 

EFT  LET  V “=ff 

27^  LET  T-I^T  vv/sfi 

3^0  PRINT  PBPFR  V7  BRIGHT  1;CHR 
$  U84Tf7^  >  ; 

298  L.E1T  Y-Y-LU *T 

I  JSTp  *  |  — .S  {  «,»  •?  ipt 

300  XF  U>  =X  THEN  GO  TO  278 
3X0  RETURN 
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3£@  REM  MfilM  LAYOUT 
33©  PRINT  RT  0,©;  PAPER  5;  INK 
0;  '*  ADDR+HEX :  DEC:  HEXPEEK :  CHR$ 

-  t» 

34.®  LET  GO =RDD:  LETT  TO  =RDD+ 17: 
FOR  L  =60  TO  TO 

350  LET  DEC -PEEK  ADD :  LET  C$=CH 
R$  (DEC  AND  DEO  32  i 
36©  PRINT  TAB  Cl  RND  RDD < 10>  + ( 1 
AND  ADD < 1001  +  C 1  AND  ADD < IDS®?  +  ( 
1  AND  RDD<  10000 J  ;  INK  7j  PAPER  4 
;  ADD;  PRPER  7;"  **; 

37©  LET  R  =&!>£>:  GO  SUE  36© 

380  PRINT  "  PRPER  S; DEC;  PR 

PER  7;TRB  I7> ;  LET  R=©£C;  GO  SUB 
360:  PRINT  PRPER  7;  THE  24  J  PAPE 

5^  •  f~*  agg. 

390~LET  ADD=ADD+i.  IF  ADD>65535 
THEN  LET  RDD=0 
4-00  NEXT  L 

4-10  PRINT  RT  19,2;  PRPER  2;  INK 
7;**  R:NEU  ADDRESS  H  r  HEX-DEC  " 
430  PRINT  RT  20,2;  PRPER  2;  INK 
6;  ”  E:  EXECUTE  CODE  D:  DEC -HEX  ** 
4-3@  PRINT  RT  21,0;  INK  7;"  "  j 

PAPER  "  S-SAVE  X  L  —LORD  BYTES 
«*  j  PRPER  7  ’  "  ** 

*4.4-0  PRINT  #1;  "  M-WOUE  MEMORY 
C -CONTINUE  " 

4-50  LET  I$=INKEY$:  IF  1$  =  ****  THE 
N  GO  TO  4-50 

460  IF  I*=**R"  OR  X*e**a"  THEN  RU 
N 

4-7©  IF  I$  =  *‘h  **  OR  I*  =  "H”  THEN  GO 
SUB  4-0:  GO  TO  410 

480  IF  X$-C'S‘~  OR  X«|="S "  THEN  GO 
SUB  920 

490  IF  2$='‘d“  OR  I$="D"  THEN  GO 

SUB  2Q0:  PRUSE  @  :  GO  TO  410 

500  IF  I$="e"  OR  I^="E"  THEN  GO 

TO  570 

510  IF  I$=”L **  Off  X*  =  “  L  **  THEN  SO 
SUB  88©:  GO  TO  410 

520  IF  I$="C”  OR  I$  =  ‘‘C"  THEN  CL 

S  :  GO  TO  330 

53©  IF  X$  ='*»'*  OR  X*=*  M"  THEN  GO 

TO  600 

540  IF  XStO’-S"  OR  ISO’S"  OR  1$ 
<>"L“  OR  I*<>‘*t"  OR  i  $<  >**h'*  OR  i 
$<>'•«"  OR  i £<>"&"  OR  i$<>**D"  OR 
OR  OR  i  $="  c”  OR 

i*<>**C**  OR  S  *{>*'©”  OR  i  TH 

EM  GO  TO  450 
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55©  GO  TO  4-1© 

55©  REM  RUM  ROUTINE 

57©  input  "Executt  Address 


*"530  RfiMOOMTEE  USR  t.K :  PAUSE  0: 
RUN 

5S©  REM  MOVE  MEMORY 

&8©  INPUT  "Move  Pros  Address  7 

**  •  |^p 

61©  IE  MF >  65535  OR  HP  <  ©  THEN  GO 
TO  680 

52©  INPUT  "Move  To  Address  ?  **; 
MT 

630  IF  MT >65535  OR  MT  <0  THEN  GO 
TO  62© 

64-©  INPUT  "No sober  of  bytes  to  » 
ove  ";N 

550  IF  MT+N> 65535  THEN  PRINT  #2 
: "  TOO  MANY  BYTES  TRY  AGAIN  " : 

' PAUSE  0.  GO  TO  60© 

660  LET  POO -MT 
67©  FOR  P=i  TO  N 
530  POKE  MT,PEEK  MF 

690  LET  MT  =tiT Pi;  LET  MF=MF  +  1:  N 
EXT  P 
780  CLS 


710  GO  TO  330 
715  REM  INSTRUCTIONS 
720  OEF  FN  P(Af J  =  (CODE  A$-4-8-7* 
CP$>"9”J  -32*  <A*>"Z" >  1 
730  BORDER  7.-  PAPER  7.-  INK  ©:  C 
LS  :  PRINT  PT  1 , 6;  "I . . 


74-0  PRINT  PT  2,6;  "1  MEMORY  MONJ 
TOR  i" 

750  PRINT  PT  3,6;  **1  &  DAVID  PER 

RY !  i" 

760  PRINT  AT  4-, 6;  "I  1SS3 

*" 

770  PRINT  PT  5  ..  6;  “»  - — — - 


76©  PRINT  PT  6,0;  "THIS  PROGRPMM 
E  WILL  REVEAL  THE" :  PRINT  "COTEN 
TS  OF  YOUR  ROM  &  RPM  IN" 

790  PRINT  "THE  FORM  OF  ADDRESS, 

POORESS  IN" :  PRINT - HEXADECIHRL 

DECIMAL  VALUE  PT" 

©00  PRINT  "THAT  ADDRESS ,  HEXADEC 
IMAL  VALUE" :  PRINT  "PT  THAT  POOR 
ESS  &  THE  CHARACTER":  PRINT'  "COR 
RESPONDING  TO  THE  VALUE  AT" 

810  PRINT  "THE  ADDRESS." 
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82©  PRINT  "THE  PROSRflMHE  UILL  ft 
LSO  RLLOU" ;  PRINT  "VOL*  TO  FREELY 
MOUE  HEHORY  ftROOND" 

830  PRINT  "..CONUERT  HEXRDECIMRL 
""O  DECIMRL"  :  PRINT  "RHD  UISR  UE 
RSR  RND  ALSO  TO  RUN".  PRINT  "ft  R 
OUTINE  FROM  RNY  ADDRESS" 

84-0  REM  TftPE  LORDING  ROUTINE 
85©  .INPUT  "DO  YOU  WRNT  TO  LORD 
ft  PROGRRMHE  FROM  TftPE  t¥  OR  N)  7 
"  i  T* 

88©  IF  T*-"V"  OR  T$  -"**■"  THEN  GO 

TO  800 

870  CLS  RETURN 

880  IN-PUT  "Address  to  load  byte 
s  to?";  t 

89©  IF  t  >  S5S35  OR  t  «  8  THEN  GO  T 
O  880 

900  PRINT  FLASH  1;  PAPER  2;  INK 
7; ftT  21,©;"  PRESS  PLAY  ON  TftPE- 
RECORDER  s  ** 

910  LORD  ""CODE  t:  CLS  :  RETURN 

920  REM  SAVE  MEMORY 

900  INPUT  " SAVE  FROM  ADDRESS  7 

** ;  sf 

94-0  IF  SF  <0  OR  SF  >65535  THEN  GO 
TO  930 

950  INPUT  "NUMBER  OF  BYTES  ? 

N 

960  IF  OR  N > 65535  THEN  GO  T 

O  95® 

970  INPUT  "SAVE  NAME  *?  5$ 

98©  IF  S$=""  OR  LEN  SSM®  THEN 
GO  TO  97© 

99©  SHOE  SSCODE  SF, N 
108®  RETURN 
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MC  Screensave 


This  routine,  from  David  Perry,  is  written 
for  the  48K  machine.  It  allows  you  to 
store  and  print  up  screens  instantly.  It 
can  be  used  in  any  program. 

1©  BORDER  © :  PFlPER  0 :  INK  7  :  C 

l_S 

15  RESTORE 

IB  FOR  n  =4-0000  TO  4-B02S 

2©  RERD  a  :  POKE  n  ..  a 

5©  NEXT  rs 

4-©  DfiTfl  33,0,54-,  17, 4©, 117,  1,0, 
2?  ,237  17,0, 64- 

,  3.;  0,27,  S3?  ,  176,2©i,  195,  144,234-, 
0  ,  © 

'50  PRINT  RT  ©,©; " LORD  SCREEN  F 
ROM  TOPE  RND  X  UIL.L-”:  PRINT  "5RU 
E  IT  INTO  MEMORY  FOR  INSTANT" :  P 
RINT  "RECRLt-  RT  ft  NY  TIME!  !  !  “ 

6©  PRINT  :  PRINT  "TO  SfiUE  SORE 
EN  TYPE" 

7©  PRINT  "RRNDOMIZE  USR  4-0000" 

S0  PRINT  :  PRINT  “TO  PRINT  UP 
ft  SCREEN  TYPE" 

90  PRINT  "RRNDOHIZE  USR  40012" 

10©  PRINT  :  PRINT  :  PRINT  "HERE 

IS  RN  EXRMPL.E .  " 

IS©  PRINT  FLASH  1; "PRESS  PLftY  O 
N  TAPE" 

13©  LORD  " "SCREEN?  :  RANDOMIZE 
USR  4-0000 

141©  PAUSE  0;  CL5  ;  PRINT  RT  ©,© 
; ”  PRESS  ft  KEY  TO  PRINT  UP  SCREE 
N”  :  PAUSE  ©:  RANDOMIZE  USR  4-0012 
:  GO  TO  14-© 
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BASIC  Screensave 


This  is  a  BASIC  version  of  the  preceding 
program,  also  intended  for  the  48K 
computer.  It  was  also  written  by  David 
Perry. 


1  CLS  :  PRINT  "THIS  PROGRAMME 
WILL  STORE  THE":  PRINT  "SCREEN 

IN  MEMORY  RND  THEN  PRINT  IT  BftCK 
.  PS  RN  EXRHPLE  I  WILL.":  PRINT  " 
LIST  THIS  PROGRRMHE/Sfil'E  IT  RND 
THEN  PRINT  IT  BACK  ONTO  THE" :  PR 
XNT  "SCREEN."  -*->-,**** 

2  PRINT  :  PRINT  "THE  PRuSRAHH 
E  IS  TOTRLLY  BASIC" :  PRINT  "RND 
CRN  BE  USED  FOR  MRNY" :  PRINT  "DI 
FFERENT  PURPOSES." 

3  PRINT  :  PRINT  "PRESS  ANY  KE 
Y  TO  START" :  PAUSE  0 :  CLS 


1©  REH 
2©  REM 
3©  REM 
4-©  REM 
4-S  CLS 


BASIC  SCREENSRVE 
CO  DRUID  PERRY 


4S  CLS  :  LIST  50 

5©  LET  fi =30000 :  REM  RD DRESS  TO 
SAUE  TO 

60  FOR  X=@  TO  21 
7©  FOP  Y  =0  TO  31 
S©  LET  A$=SCREEN$  CX  ,Y) 

85  PRINT  RT  X,Y; "  " 

2©  POKE  R , CODE  R$ 

10©  LET  A=Afl 
11©  NEXT  V 
12©  NEXT  X 
13©  REM 

14-©  REM  fjffiPRINT  UP**** 

150  REM 

16©  LET  RaSSesS:  REM  RDDRESS  TO 

LORD  FROM 

170  FOR  X  =©  TO  21 

130  FOR  Y-&  TO  31 

IS©  LET  BaPEEK  ft 

20©  PRINT  RT  X..Y;  C-HR$  & 

210  LET  Rarft*  1 
220  NEXT  Y 
23®  NEXT  X 
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Ireland 


To  show  your  computer's  graphics  off  at 
their  best,  run  this  program  by  David 
Perry.  The  awesome  task  of  entering  all 
that  data  will  be  rewarded  by  the  quality 
of  the  final  picture.  You  can  incorporate 
this  program  with  the  SCREENSAVE  one 
(either  BASIC  or  machine  code)  so  you  can 
get  Ireland  up  on  your  screen  instantly. 


I©  BORDER  1:  PRPER  1:  INK  7* :  B 
RIGHT  B:  Ct_5 


XX 

23. 

CL-5 

PL.OT 

123, 135 

31 

FOR  f 

=  1  TO 

xss 

4*  X 

READ 

a ,,  b  ,  c 

51 

DRRU 

a,bjC 

61 

NEXT 

f 

ST 

PLOT 

X©3 , 123 

71 

FOR  f 

=  1  TO 

T 

ex 

RERf> 

a  ..  b ..  e 

91 

DRRU 

a,b,c 

x©x 

NEXT 

f 

IBS 

PL-GT 

55  j.  S© 

urn 

FOR  f 

=  1  TO 

T 

128 

RERO 

a  (»  b  , 

130 

DRRU 

a,b,c 

14-0 

NEXT 

f 

X4-S 

PLOT 

SB  ,  52 

150 

FOR  f 

=  1  TO 

S 

xe© 

RERD 

a ,«  b  ,  e 

XT© 

DRRU 

a,b,c 

18© 

NEXT 

f 

1S5 

PLOT 

68,  ST 

XO© 

FOR  f 

=  1  TO 

s 

SO© 

RERO 

a,b,c 

ax© 

DRRU 

a}b,c 

22© 

NEXT 

f 

225 

PL.  OT 

23© 

FOR  f 

as  1  *  TO 

s 

a*© 

RERD 

a  ,  b  ,  c 

as© 

DRRU 

a  .  b,  c 

as© 

NEXT 

f 
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265  PL.OT  36,93:  DRAW  @,2,0:  DRR 
U  -1,2,0:  DRRW  -2,  -2,  ©  :  DRRU  -2, 
-3..©:  DRRU  4-,!,© 

37©  PLOT  e©..  3.25:  DRRU  0.3,-PI/2 
:  DRRU  -S,  2,0:  DRRU  DRRU 

-3  ,  -2  ,  PI s3  ;  DRRU  6  ,  -3 ,  -PI/3 
2S©  PLOT  85,115:  DRRU  3.-1,©:  D 
RRU  -3,4,PI/2:  DRRU  -i,3>I/2:  D 
RRU  -3,0,-PI;  DRRU  0,-2,©:  DRRU 

2,  -4, -PI/S 

1000  DRTft  3,5,0, -2 , 3 , -PI/2 , -4 , 6 , 
©,  -1,5,0,  -?,?,PI/'S,  -6,  © ,PI/S ,  -3, 

^p.  J 

1©X©  DRTR  -5,0,0, -4, -5 .©, -3 « -1,0 
,  1,4,©,  7,5,©,  -5,2.Pi/4‘.  -3  .5.0.  -3 
,-2,-PI,-S,-6, (PI/i.5) 
isas  DRTR  -i,  —4  ,0,  -a, a , 0,0,  1,0,2 
,3,0, -6,7,0, -3 , -2 ,@,-4. —2 ,PI/1.5 
1030  DRTR  -6, -2,S, -1, -5,PI/2, -2, 
-7, PI/2, -3, —3, PI/1.5, —7, -3, PI/2, 

3,  -6,0, 11,  -1 , 0,  -a , -3 , 0 ,  -10 , -5, 0  , 

©  ,  -2 ,  © , 3 -2,©,  -1,  -2,0,  -7 ,  1,  P I/-4 
104©  DRTR  -3 , 2,  ©  .  -3 ,  -6.PI/4- ,-1,5 
,  0,  —5, 2..PI/2,  -8,2,0,  -1  .  -4  .PI,  -3, 
-20, PI/4  ' 


105©  DRTR  -2, -5, -PI 

106©  DRTR  3,  —2,  PI,  4 , -2 .0,0, -2 , PI 
.  -7,  -1,0  .  -2,  -6,0,  -6,  -2,0,  1,  —4  ,PI 
.2,  -4,  PI  .4 . 8,  PI/1. 5,5,  —2,  PI-£l»  2 
107©  DRTR  2 , - 1 , P I /2 , 5 , -5, PI/I.5, 
9.1,0. -1,-3.©. -6, -1,©, -4, -7, PI/6 
IQS©  DRTR  ©, -2,P3L, -X, -3,0,  — 7, -5, 
PI/6, -4, -3,0,1, -2,PI,7,2,@,6,0,P 
I/'4 , 1 ,  — X  .  0  ,  — S  .0,0,  —5  ,  —5  ,  —  PI/3 
2890  DRTR  -2, 2 , 0, -1, -3, 0, 1, -2 , 0 , 

2,  -4,PIM,  -4,  -2,0,  -5,2.  PI,  -4  ,  &,  P 
1/4 . -4 , -2 , 0 , © . -5 , PI/S ,7,0, -PI/4 , 
7, 1,0, 1, -1,0, -3, -2, PI/ 20, -S, -2,0 
,  -2 ,  -6 , PI/4 , 3 ,  -2,  PI 

220©  DRTR  2,  0,0,3,  —3,  PI/1.5 ,4,1, 
P 174-, 6  » 2  .  ©,  —8 ,  —4-,  0,  — 5,  — 5,  0,  2  ,  —3  , 
PI, S, 3 j 0,2, 1,0,3, 0,0,  -7,  -2,0,2, - 

3,  PI, 5, 2, 0,2, -3 ,0,4, —2 , —PI S€> ,4,0 

.0.2, 2 . 0 ",  4  ,  —  2,  8',  3, 2  ,0,  S  ,  1,  Pl/i  •  S 
1120  DRTR  4,2,PI/'2,5,3,0,©,3,PI, 
0 , 3  ,  PI/1 . 5 , 4 , 0 ,  ©  ,  1 ,  -5..PI/4 , 2,0,0 
,  1 , 2 , 0 , 4- ,  2  ,  ©  ,  6 , 2 , 01 , 2  ,  2 , 9  ,  4- ©t ,  0 , 3 
,  <2  ,  C&  ,  —  1 , 3  ,  §■**  ,  a  ,  ,55  2  ,  M I  /"  ,  4-  , 

l,PI/1.3,i, 1,0,4, 0 ,PI , 4 , -1, 0,2,0 
,0,7,0, PI  /'4 
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112©  DRTR  S& ..  -2.3..PI  ,'4-  ,  -3 

,1  .0.4-..0,®,3.,5f0.,2,?.,PI  ,-'4  .,2,6,PI 
✓6 .3 .6 .0..  -i,3..PI/2.,8, 11..PI/6 
113©  DRTR  -3,3.,PIM,-2..0..0,3,l,-0 
,.3.  -1,0,0,3,PI,  -1,3,0j0,5,PI/1.7 
,  —2 ,5,0,0..3,PI  /3 ..  0,3^PI/3  ..  -1..  0 ,0 
,  0  ,  o  c  P 1  j  o  ,  o  .a  P  X  s'  d  .i  4* ,«  2  ,  P 1  s  &  ,  3  ,  5  ,  8 

,  ©  E  1  •  S 

114©  DRTR  4-  ,8,0,2,2,21/3,  -1, 4, PI 
,0,7,PI/6j,a,  l..PI,2J,-9,0,2,0,PI,- 
X,  18.PI/6,  -2,3,PI/S,  -2,1,0 
115©  DRTR  -5,  -3  ,  PI/4.  ,0,3,0 
116©  DRTR  l,3,PI/6,2,5,PI/4.,  -3,0 
,PX/1»5,  —3 ,  1 ,  —  P X/l«5,  —3 ,  — S ,  -*PI /3 
,1,  -~1,©,4,  -1,  PI/5 

1170  DRTR  3, 4, 0,5, 6, -PI/4, -1, 1,0 
, -2, -1,0, -2, -3, -PI/3,-3, -4, -PI/3 
,  O  ,  —.3  ,  —  IP  I  /  P* 

1180  DRTR  3, £,©,2, -1,©, 5,0,0, -3, 
1 .PI/6, -4.3, -PI/1.75, -3, —4 ,PI/3 
IIS©  DRTR  2,3,0, -2,5, PI/2,0, -2 , S 
, 0 , — 3 ,  P I /2 , © , —3 , PI /2 

120©  DRTR  4, -3,PI/6,4, -4,PI/6,1, 
0  ,  IS  ,  0 , 3 , 0  ,  —4 , 5  ,  P 1  /  6  ,  5  ,  —  1 , 0 
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Master  Copier 


This  handy  program  from  David  Perry  will 
copy  machine  code  programs  automatically. 

If  there  is  a  BASIC  loader,  then  you  must 
copy  it  first,  by  typing  MERGE  ""  then 
SAVE"name"  LINE  the  line  which  loads  the 
machine  code  part.  This  program  reads  the 
header.  Loads  the  program  and  then  tells 
you  how  to  save  it.  Just  follow  the 
prompts  and  you'll  have  no  trouble  using 
this  program. 

5  GO  SUB  31 

B  CLERR  3274? 

7  FOR  t  =33745  TO  33761 

S  READ  x :  POKE 

cs  DftTR  55.52,5..  2sl  ,  *3 © ..  1h5  j  3. 

?,20,B,  205  ..85,5,201 

11  PRINT ’ OT  5,2;  FLfiSH  1 ;  "x  RH 
NOW  LQfiDIKG  THE  HERDER!  **;  FLRSH 
©;RT  7, 1©; "PLERSE  WRIT" 

12  RRNDOHXZE  U5R  3274-S 

13  LET  0=1:  GO  SUB  13:  LET  0=0 

14.  CLS  :  PRINT  RT  ©,  10;  “Header 

Da  ta  ’* 

15  IF  PEEK  32000=0  THEN  GO  TO 

54- 

15  IF  PEEK  32800=1  THEN  SO  TO 

69 

17  IF  PEEK  22000=2  THEN  GO  TO 

73 

IS  IF  PEEK  32000  03  THEN  RUN 

13  LET  Z$=“”:  FOR  6=33001  TO  3 

2010 

28  LET  Z$=2$+CHR$  (PEEK  BJ 

21  NEXT  b 

22  LET  0*=^-.* 

23  LET  R=PEER  32011:  LET  B=PEE 

K  32012 

24.  LET  N=R+-  (Bi-256> 

25  LET  R=PEEK  32813:  LET'  B=PEE 

K  32014- 
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£6  LET  W=R*  !'35-256> 

2?  LET  R=PEEK  32015:  LET  B=PEE 
K  32B16 

26  LET  D=R-f  CB^256) 

2S  XF  U  =  i  THEN  RETURN 

36  GO  TO  4.7 

31  BRIGHT  X:  BORDER  0:  PRPER  © 

:  INK  7:  CLS  :  PRINT  "  MR 

STER  COPIER” 

32  PRINT  "  ============ 

*  e 

33  PRINT 

34-  PRINT  ’THIS  PROSRRHHE  UILL 
COPY"  HRCHIHE" 

35  PRINT  "CODE  PROGRAMMES  RUTO 
HAT  I  COLLY  ,  86 

36  PRINT 

37  PRINT  "IP  THERE  IS  R  BASIC 
LOADER  THEN  YOU  MUST  COPY'  XT  FIR 
ST" 

38  PRINT  "BY  TYPING  MERGE*"""8 
THEN" 

30  PRINT  "SPUE"  LINE  th 

e  Line  ^hich  laads  t*ve  taenia  c 
ode  part" 


4-©  PRINT  :  PRINT  "THIS  PROGRAM 
HE  READS  THE  HERDER" 

-LI  PRINT  '’LOADS  THE  PROGRAMME 
AND  THEN86 

*5  PRINT  “TELLS  YOU  MOITTO  SRV 
E  XT  .  " 

4.3  PRINT  :  PRINT  "  1  *  *  *  *  INSERT 
CASSETTE  RT  START  OFHACHINE  CODE 
SECTION" 

4-4.  PRINT  "2  *  *  »  » CHECK  LEADS68 

4-S  PRINT  “3,  ,  ,  TRESS  RNY  KEY'  U 
HEN  READY” 

4-&  PAUSE  ©:  CLS  :  RETURN 

4-T  CCS  ;  PRINT  RT  1,0;  “MASTER 
COPIER" 

48  PRINT  RT  2,S;  ”=  =  «  =  =  =  =  =  =  =  =  = 

*A 

4-3  PRINT  RT  3.,©;  "To  save  the  p 
rosra®»s  svo-w  'em”-.  PRINT  "tass'a  1 1 
e  you  sust  first  of  alt" 

5©  PRINT  "have  saved  the  basic 
loader  and":  PRINT  "you  most  re 
wind  the  cassette  to":  PRINT  " th 
e  start  of  the  MACHINE  CODE" 
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51  PRINT  "section  then  "NEW  t 
his":  PRINT  "prograese  and  type*' 

52  PRINT  :  PRINT  “LDUD  . *;  Z*; 

""•■code 

53  PRINT  "CHECK  LERDS ..  PRESS  G 
KEY.  PRESS":  PRINT  "PLRY  ON  THE  T 
RPE *  RECORDER .  . 

54-  PRINT  :  PRINT  "When  it  has 
loaded  type :  " 

55  PRINT  :  PRINT  " SRUE  "  j  Z  $  ,  " 

CODE  ;  "  ..  “  ;  n 

56  PRINT  "INSERT  BLfitiK  CRSSETT 
E . CHECK “ :  PRINT  " LEADS , PRESS  REC 
ORD  &  PRESS  R  KEY" 

5?  INPUT  "Copy  to  the  printer 
(M/n > a$ 

"56  IF  a$="y"  THEN  COPY 

50  IF  af ="n"  THEN  PRINT  RT  31, 
©;  BRIGHT  8;  "YOU  SHOULD  WRITE  TH 
IS  DOWN  THEN*  ** 

6©  INPUT  "Are  there  any  ©ore  ifi 
a  chine  code  sections  to  copy  lyr 
n)  " ; a  $ 

51  IF  3$=“y"  THEN  RUN 

62  PRINT  AT  21^3;  FLASH  X;  PAP 
ER  2;  "PRESS  RNY  KEY  TO  'NEW '  !  *  *  ! 

63  PAUSE  0:  PAUSE  8:  NEW 

64.  CLS  :  PRINT  “YOU  have  JUS  t 
Loaded  a  BASIC" :  PRINT  "header" 

65  PRINT  "IT  IS  CRLLED" 

66  PRINT  2$;"  LINE 

6?  PRINT  "ITS  BASIC  LENGTH  IS 

"  J  O 

68  PRINT  :  PRINT  "Press  any  Re 
y  to  run  p  rograsae" :  PRINT  "agai 
n . . . " :  PAUSE  © :  RUN 

60  CLS  :  PRINT  "YOU  have  JUS t 
Loaded  a  NUMERIC":  PRINT  **  ARRAY 
heade  r " 

7©  PRINT  "XT  IS  CALLED" 

71  PRINT  2$ 

72  PRINT  :  PRINT  "Press  any  Re 
y  to  run  programme" :  PRINT  "agai 
n . . . " :  PAUSE  © :  RUN 

73  CLS  :  PRINT  "You  have  Just 
loaded  a  CRRRRCTER":  PRINT  "  RRR 
RY  header" 

74-  PRINT  "IT  IS  CALLED" 

75  PRINT  2$ 
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76  print  :  print  “Press  any  Ke 
y  to  run  prograBte":  PRINT  "agai 
n . . . ” :  PROSE  0 :  RUN 

MASTER  COPIER 


THIS  PROGRRMME  UILL  COPY  MRCHINE 
CODE  PROGRAMMES  RUTOMRT  ICRLL.Y  , 

IF  THERE  IS  R  BR5IC  L.ORDER  THEN 
YOU  MUST  COPY  IT  FIRST 
BY  TYPING  MERGE"  *’  THEN 
SflUE"natft"  i_XNE  the  tine  which 
toads  the  sraehie  code  part 

THIS  PROGRRMME  READS  THE  HERDER 
LOADS  THE  PROGRRMME  AMD  THEN 
TEL.L-S  YOU  HOW  TO  SAVE  IT „ 

2 . .  . . 1.SERT  CASSETTE  RT  STRRT  OF 
MRCHINE  CODE  SECTION 

2 . .  . . CHECK  LEADS 

3 . .  . . PRESS  ANY  KEY  WHEN  READY 


UTILITIES 

AND 

DEMONSTRATIONS 


i 

i 
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Biorhythms 

Now  you  can  chart  your  ups  and  downs  in 
this  graphical  BIORHYTHMS  program. 

There  are  three  cycles,  which  begin  at 
birth  and  continue  right  through  our 
Lives,  which  are  believed  by  many  to  have 

physical  mental  emotional 


j  1 1  !  !  M  I  1  I  I  i  I  I  LLLLLLL1  LI .1  Hi  till 

2.5.  t  10th  20th  30th 

an  effect  on  our  lives.  The  three  cycles 
are  as  follows: 

PHYSICAL  -  this  is  a  23-day  cycle  which 
controls  such  things  as  endurance  and 
strength 

EMOTIONAL  -  the  28-day  emotional  cycle 
governs  feelings  of  optimism  and  pessimism 
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MENTAL  -  Logic  and  reasoning  come  under 
the  sway  of  this  33-day  cycle 

The  program  is  self-prompting  and  produces 
a  very  effective  display. 


1 

2 

-RHYT 

1© 

,  'L>ay 
c 

2© 

Hon  th 
25 
3© 

id-b3 

3©© 

Si© 

S15 

=  1©  T 
32© 
S3© 

S4-© 

—  •_ 

e  as  o  t  i 
9S© 
905 
91© 


.RESTORE  _ 

PRINT  RT  0,0;"  BIO 

HM 

INPUT  “Enter  Date  Of  Birth" 
“ ; a ;  “  Month  ‘;b;“  Year 

INPUT  “Enter  Date  Now 
“ ;  d ;  “  Year  e 

CL  5 

LET  t  =  INT  C  (  (e-c)  *365.253  +  i 

*30.353 -a 3 

FOR  r=©  TO  255 

PLOT  r , I© 

IF  r=INT  (r/b) * b  THEN  FOR  u 

O  2©;  PLOT  r t O :  NEXT  U 
NEXT  r 

PRINT  RT  21,0; “1st  10th 

t  n  3  ©  t  b 

PRINT  RT  ©,©;  INK  1.;' Physic 
;  INK  2; “mental  “ ;  INK  4-;" 
on  a  l  '* 


er  r» 


R  r  =1  TO  3 
RERD  u 

LET  l  =2*PI*  C  t  -  ( INT  t 1  /u  3  *U  .» 


3  'V 

92©  LET  K =2*PI* (33-U3 *. 03 
ISO©  FOR  3=1  TO  k  +  l+l2*PI3  STEP 
1 

101©  PLOT  INK  ( tl  RND  U=233+(2  R 
ND  u  =263  +  (4-  RND  u  =333  3  ;  fa- l  3  *  (35 
-2S+U3 ,90+SIN  a *60 
102©  NEXT  a 
103©  NEXT  r 


104-0  DAT  fl  23,28,33 

105©  INPUT  “Rnother  Go  ?  "  ;  a  $  : 

F  a$  fl3  =“y “  THEN  GO  TO  1 


X 
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Paint  Pot 


This  clever  program  from  Graham  Charlton 
fills  a  randomly  generated  shape  with  the 
current  INK  color.  Lines  ID  to  60  draw  the 
shape,  and  the  subroutine  from  9000 
onwards  fills  it.  Make  the  strings  (A$  and 
B$)  as  long  as  possible  on  your  computer. 
Note  that  they  take  up  a  lot  of  memory. 


10  CIRCLE  120 , S© , 15 
2©  PLOT  100 , 50 
3©  DRAW  4.0  j  0 
4.0  DRflU  0..  4-0 
50  DRflU  -4-0 . 0 
6©  DRRU  ©  .  -4.© 

7©  GO  SUB' 9000 
10©  STOP 

903©  DIM  3$ (9993) 

3©1©  DIM  b  $f  (  9939) 
y02©  LET  2=1 
333©  INPUT  X 
334-0  INPUT  y 
9050  PLOT  X  .  y 

906©  IF  POINT  (X  4-1  ji  y )  +POZNT  (X - 

..  y)  +point  (x\.  y+i) +point  (x.y-i) 

>4.  THEN  GO  TO  9120 

3S70  LET  2=2-1 

90S©  IF  2=©  THEN  RETURN 

3330  LET  X=CODE  a*  (2) 

313©  LET  y=CODE  b$(Z) 

911©  GO  TO  90S© 

312©  LET  3  $ (2 )  =CHR$  X 
313©  LET  b$ (Z ) =CHR$  y 
314-0  LET  2=2+1 
315©  FOR  C  = -1  TO  1 

3160  FOR  d  =  -  <  C  =0)  TO  <c=©?  STEP 

9170  IF  POINT  (X  +  C..y+d>  =©  THEN  €? 

O  TO  9200 

3 IS©  NEXT  d 

3190  NEXT  C 

330©  LET  X=X+C 

9310  LET  y=y+d 

3220  GO  TO  90S© 
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A  fv> 


Timothy  Leary 


This  program  by  Damian  Steele  creates  a 
lumber  of  dramatic  graphic  displays  to 
iemonstrate  convincingly  (if  you  still 
leeded  convincing)  how  effective  your 
:omputer's  graphics  can  be. 
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1©  PRPER  6:  BORDER  1:  INK  I:  L 
ET  D  =  l:  LET  £  =  2;  LET  F=0:  LET  X  = 
0-:  LET  Y=I75:  LET  5  =D :  LET  B=0: 
LET  C=@ :  OUER  1 

2©  CLS  :  PRINT  SS;  RT  0  .  B;  ** 

ZX  TRIP  P 

RESS  RNV  KEY  IF  BORED..." 

10©  FOR  R=X  TO  V  STEP  S 

11©  IF  H>  =123  THEN  GO  TO  4-0© 

220  IF  R > =37  THEN  GO  SUB  20© 

130  PLOT  0,-R;  DRAW  fY.+  2 , 4-57)  -B, 
p  _C 

135  IF  INKEY$f>""  THEN  GO  TO  2© 

00 

14-0  NEXT  R 

200  LET  E-=B+&-  2.  LET  C=C+2 

300  RETURN 

4-00  LET  S=2 

4-5©  GO  SUB  70S 

500  OUER  1 

510  FOR  R=1  TO  255  STEP  5 
515  IF  INKERS <  > " "  THEN  GO  TO  10 

00 

t>H0  PLOi  R  0  /  DW.S.U  0.- J 
530  NEXT  H 

535  IF  B=1  THEN  GO  TO  60S 

537  GO  SUB  70© 

54-0  FOR  0  =  2  TO  175  STEP  S 
54-5  IF  INKEY  $  <  > "  THEN  GO  TO  10 

00 

55©  PLOT  ©,R:  DRflU  255,© 

560  NEXT  R 
565  GO  SUB  700 

57©  IF  Boi  THEN  LET  E=2  GO  TO 
4-5S 

600  IF  E=2  THEN  LET  E  =B.  jRf*  TP 
53? 

62©  LET  F-F+Z:  IF  F < =2  THEN  LET 
S  =  1.4:  LET  B=0.  GO  TO  4-2© 

650  GO  SUB  70©.  GO  TO  1000 
70©  FOR  H=1  TO  20.  BEEP  ,M7,-  f.R 
ND-sSS'  +35:  NEXT  R 
300  RETURN 
I©©©  PAUSE  0:  CLS 
1001  LORD 
9580  STOP 

9998  PRINT  FLASH  1.;  fff  18, 18;  ”5TO 
P  THE  TAPE"  :  PRINT  RT  23  .-2;  "PASS 
S  ANY  KEY  TO  CQNT IHUE *  *  . " :  PROSE 
0:  GO  TO  1 
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Color  Test 


This  simple  program  by  David  Perry  puts 
all  of  the  computer's  colors  up  on  the 
screen  so  you  can  tune  in  your  television 
for  the  best  possible  picture. 


10  BORDER  2:  PAPER  B;  BRIGHT  1 
:  XNUERSE  0.-  OVER  0.  FLASH  0:  CL 


P  4- 
3© 


4“^^ 

50 

56 

7© 

Q0 


LET  i =  -I -  FOR  r>  =©  TO  31  &TE 


LET  i  —i  4-1 
FOR  a  =0  TO  -3 
FOR  x=©  TO  21 
PRINT  AT  x,n+y; 
NEXT  X :  NEXT  M : 
INK  7 


INK  i  J  ***" 
NEXT  n 
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Logic  Gate  Emulator 


This  program,  by  Neville  Predebon,  shows 
you  the  result  of  having  AND,  NAND,  OR  or 
NOR  gates  in  a  circuit.  Just  follow  the 
prompts . 


1  REM  ’’gates” 

5  REM  ©  Predebon  19S3 
7  BORDER  6 

I©  PRINT  INK  1;RT  2..  13;  "GRTES” 
;  INK  0,;  RT  10..  6;  "R  logic  gate  ut 
i  Uty” 

12  INK  0 

15  PRINT  RT  18,3; "press  any  Ke 
y  to  continue”:  PRUSE  ©:  CLS 
20  PRINT  RT  5,1; "Key  the  sate 
:  PRINT 

25  PRINT  TAB  5; "RHD  ~  1" 

30  PRINT  TRB  5;  "NflND  =  2” 

35  PRINT  TRB  5; "OR  =  3" 

4-0  PRINT  TRB  5;  "NOR  =4-" 

4-5  PRU5E  0;  CL5 

4.7  GO  SUB  115  . 

PRINTR?NPRINT8  *  6’* 

^55  PRINT  TRB  2; "Switch  R  -  ©01 

50  PRINT  TRB  2; "Switch  B  -  ©1© 
1":  PRINT 


55  IP  INKEY $= "2" 
7©  IP  INKEY$=”3" 
75  IP  INKEY$="4" 
30  PRINT  TRB  4; " 
GO  TO  I©© 


THEN  GO  TO  B5 
THEN  GO  TO  90 
THEN  GO  TO  95 
Output  -  fiBEB" 


85  PRINT  TRB  4;  "Output  -  BBSS'- 
GO  TO  10© 


9©  PRINT  TRB  4;  "Output  -  8BM1" 
GO  TO  10© 


95  PRINT  TRB  4j  "Output  - 
100  INPUT  INK  1; "Do  you  need  an 
other  run?  *';a$ 

105  IP  a$="yes”  OR  at='*YES’1  THE 
N  GO  TO  15 


110  PRINT  :  PRINT  INK  2; TRB  9; " 

Uery  well":  stop 
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115  IF  INKE¥$-"l,•  THEN  PRINT  RT 

3,4-;  **RNDM; 

120  IF  INKEY  $= “  2  **  THEN  PRINT  RT 

3,4-;  !,NRND*'; 

125  IF  INKEY $  =  "3"  THEN  PRINT  RT 

130^  IF  INKEY $  =  "4-**  THEN  PRINT  RT 

3,4-;  **NOR”; 

135  PRINT  "  GRTE** :  RETURN 
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Aural  Assault 


Each  RANDOMIZE  call  in  this  brief  program 
by  Graham  White  produces  a  different 
sound.  There  are  five  such  sounds  which 
you  can  incorporate  into  your  own 
programs. 


10  CLEAR  32399 
2S  FOR  a  =324-00  TO  3254-9 
30  READ  n :  POKE  a , n 
4-©  NEXT  a 

5©  DATA  6,-S;  197 .33,-15,0,17-4-0. 
0  ,  229  ,  205  ,  131 ,  3 , 225 , 17  ,  4- ,  0 , 167 , 2 
ir-7  ,  90  ,  125 , 254- ,  255  ,  32  ,  237  , 193 , 13  , 
233 ,  201,0  ' 


_  ^  e'  UH  ■  R  6,5,  197  i  33  ,  lt>  -  ©  -  17  4-0 

®  AiaiAa?®  t 3  igi^T  i7 ,  it. 0 ;  167 
=--'l  4.30  4 125 ,  2& 4- h5&  32  ,  237 , 193 , 16 
,  ~  a>©  ,201,0 

-SSBgTfi  6,2,197,33,0,6,17,5,0, 
229 , ass , 131 , 3 , 225 . 17 ,3,0- 167 , 237 
,  5:2  ,  32 , 24-0  ■>i-Sni  WWW*  %>il^  -t-^i  6 , 233 , 201 ,©,0,0, 

90  DfiTH  &  j:  50  4  1*37  t  3  3  ^  0  1,17.1.0 

i.E'2"' ;  /  <3  #  225  ,•  17  ,•  i  &  ,  0 . 1 S  7 ,2 

3  ,- is2 , 32  ,  Hie: ,  193 , 16 , 233 , 201 ,0,0, 

*3  -  0 


100 

RANDOMIZE 

USR 

324-00 

110 

RANDOMIZE 

USR 

324-30 

-®  — = 

RANDOMIZE 

USR 

324-60 

130 

RANDOMIZE 

USR 

324-90 

140 

RANDOMIZE 

USR 

32520 

150 

GO  TO  1©0 
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Rainbird 


Now  you  can  see  how  your  computer  can  mix 
its  standard  colors  to  produce  up  to  128 
different  shades. 


Some  programs  which  produce  this  effect 
use  a  graphics  character  with  a  checker¬ 
board  pattern  in  order  to  produce  a 
pattern  of  dots  to  mix  the  colors.  This 
program  allows  for  this  option,  as  well  as 
two  others.  You  can  see  that  horizontal 
lines  produce  a  color  which  is  more  steady 
on  the  screen  than  the  checker-board 
pattern  produces. 


2  FOR  TO  7  STEP  S:  POKE  U 

SR  "S"+aJBIN  1111.3.1.1.2.- 

'*a"+a  +  l  iBSN  B000000®.-  .faEV.<  -3 

3  FOR  3  =0  TO  7  STEP  2.  POKE  U 

SR  "b*  -f3  1 0101012.-  .POKfr  itSP 

”  b  "  +  a  + 1  BIN  01010102.  MEXT  3 

4-  FOR  a  =©  TO  7  STEP  2.  .REUSE  U 

SR  "C"+a,BIN  11110000.-  R0KE  ilf\P 
'•C’+ati.BIN  NEXT  a 


0 

PRPER 

7 :  INK  1 

BDPJftER 

:7„- 

X'- 

L.0  : 

GO  TO 

100 

10 

PRPER 

© :  INK  7 : 

eORDE.^ 

jn 

L.S  : 

PRINT 

RT  16  ..0;  “ 

0  1 

2 

3 

4-  5 

6  7 

paper ** 

15 

FOR  c 

~B  TO  1 

2©  PRINT  P.T  13 . 12;  "  far  i  gh  t  c 
:  print  »B;  “Press  a.oy  iey  o.«-  '.s 

ace'  for  the  Nemi " 

25  FOR  a=©  TO  7.  TOP  TO  7 

3©  BEEP  .  0©3,RND#4l0-JI£» 

35  IF  b=©  THEN  PRINT  .RT 
bi4;a;flT  0,0;  "i.o.*  " 

4-0  IF  Cl  =1  THEN  PRINT  BRJfihd  r 
;  INK  a;  PRPER  b;fiT  a^2.ba4.;“^ 
RT  a  *2 ^-1 ,  b  ”  ^=— 
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4-1  IF  CU2  THEM  PAINT  C 

;  INK  a.;  PfiPER  b;flra»2,hrt;  "JUSi 
^**;RT  ajf2+i,b*4; 

42  IF  Cl  =3  THEM  PRINT  EtRTRHT  C 
;  INK  a;  PfiPER  b;.QT  aa-2.-h^4j 
%".;fiT  a*2-H,bi-4.; 

45  IF  b=©  THEN  PRINT  AT 
b*4.;a;fiT  0,0;  ■•imt" 

50  NEXT  b.-  NEXT  a 

60  IF  INKEY$=''  ”  THEN  GO  TD  60 
7©  IF  INKFy$f.vs  “  THEM  NEXT  C  .- 
GO  TO  15 
60  GO  TO  ISO 

10©  PRINT  RT  0,1; "128  COLOUR  SP 
ECTRUM  OVER  i;RT  0,1;  ■* _ 

11©  PRINT  RT  2, I; “This  program 
demonstrates  hoi?  the  st  a.odard  e 
ight  colours  of  the  IX  £>p ectru 
m  can  be  mixed  to  produce  up  to 
128  different  s b a d e s .» 

12©  PRINT  "  Some  programs  whic 
h  use  this  ef/ert  use  a  g/Ao.bi 
c  character  with  a  chessboard  t 

ype  pattern  of  dots  to  mix  the 
colours,  t.b  J  }J  no  ds  .otr_p.v_i.rtF.jrf 

but  general lya  series  0/  horizon 
ta  l  tines  will  work  better  as 

this  way  thes tight  dot  crawl  ef 
feet  is  reduced  rather  than 

exaggerated.'  ** 

13©  PRINT  RT  IS,  2,:  “.HIT  .QMX  KEY 

140  PAUSE  3 
145  CLS 

15©  PfiPER  7:  INK  1:  BORDER  7:  C 
LS  :  PRINT  RT  1,13;  T.WiiERBF  _1.:  *.*M 
ENU  " 

16©  PRINT  RT  5,  “l--.HordTO.otai 
lines  =  HIT  A“;PT  7 r&;  “_2.  Cb 
essboard  pat! err*  Jill  .HEV“.:.fiT  S* 
.0;  "3:  Dashed  lines  |gi=  1 

-3“ 

17©  PRINT  fiT  13,1; "The  colour  r 
cm  hi  nation  /or  eir.bs.bade  ran  _he 
read  from  the  axes  of  the  char  t 
It  must  be  noted  that  the  inn 
and  paper  colours  are  not  inter 
Changeable,  that  is /or  example, 
blue  ink  on  red  paper  is  a  di 


871 


rs-ai  i.o.s  .no  -hJ 


f ferent  colour 
ue  paper." 
is©  print  S0.; 
routines  for 
a  rap h i cs  a  re 
IS©  IF  INKEY $ 


t  o 


RT  0,1;  INK  l; “The 

ge.oer  3tiri3  t.bfiii>e.r 

in  lines  2-4-*-” 

<>*•**  T.HE.N  I?©  TP  JS 


200  LET 
205  IF  a 
TO  20© 
210  i-ET 


a  $  =  INK EY  $ 

$>”3“  OR  a${'T 


THEM 


GO  TO  ISt 


GO 


C  L -URL  a  $ : 


Line  of  Best  Fit 


This  useful  utility  program,  written  by 
Neal  Cavalier-Smith,  allows  you  to  enter  a 
number  of  points.  The  computer  will  then 
plot  a  line  of  best  fit  for  these  points, 
and  give  the  equation  of  this  line.  You 
can  see  it  in  action  in  this  sample  run: 


Equ at  ion  of  best  fitting  tine  i 


i 


Input  points  were..,  i I ,21 
C  4...  S>  C  4-0 ..  8Si  f23^  4.6.1 
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Equation  ot  best  fitting  tine  is 

Y  =0 . 93X+24-  .  5 


This  is  the 
best  fit1 : 

listing  for 

your  own  1  line 

of 

20 

LETT 

a  =0 ;  LET 

b=0.  LET  1»  = 

0 

23 

LET 

R  =0 ;  INK 

7“  :  PAPER 

0 

33 

CL.S 

;  SORDE R 

0 

43 

input  “How  *&any  points'?4* 

;  n 

53 

DIM 

x  tnj 

53 

DIM 

y  cnj 

7© 

PUP 

c=i  TO  n 

5 

input  x  f  c 3  , y 

(  C  j 

76 

PLOT  X  C  C  3  , y  £ 

C  } 

80 

LET 

a  =3  +x  £  C  3 

0© 

LET 

b  =  b+y  £  c  3 

23© 

ME  XX  C 

2  23 

LET 

a=3/Ti  :  LET  h-b/n 

22© 

FOR 

c=l  TO  n 

13©  LET  i»=»  +  (  (  (X  (C3  -a)  *  ty  (C?  -b> 
}  /  (  ifiBS  tx  rcj  -a)  )t2)  ) 

14-0  NEXT  C 
14-5  LET  #=»/n 
150  LET  K=b-®sa 
160  LET  C -0 

195  PLOT  8,0;  DRflU  100..  0;  PRINT 
RT  21,13; "108" 

196  PLOT  ©..  ©.  DRRU  0,100:  PRINT 
RT  8,©.;'*1©0’' 
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£00  PRINT  rt  0,®; "Equation  Of  b 
est  fitting  line  is" 

£1©  PRINT  RT  £  ,  0;  *’Y  =  ”  ;  INT  (J»*l© 
0+.  53  ./10®;  X  +  -;  INT  tK  *10+. 53  /10 
££©  FOR  C  =  1  TO  10© 

225  LET  d  =81  *  C  +  K 

23©  IF  d  <100.  THEN  PLOT  C,d 

24-0  NEXT  C 

250  STOP 


Equation  of  best  fitting  line  is 
V=0 . 98X+I1 


10© 
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Hall  of  Fame 


This  can  be  used  in  any  arcade  type  game. 
As  an  example,  type  in  a  number  above  100, 
then  your  name,  and  in  a  second  or  so  the 
computer  will  calculate  and  print  up  the 
new  Hall  of  Fame.  This  program  was  created 
by  David  Perry. 


1  REM  HALL  OF  FAME 

2  REM  <C>  DAVID  PERRY  1983 

3  REM 

4  REM  NUM=NUMBER  OF  SCORES 

5  REM 

6  REM 

9  BORDER  O:  PAPER  O:  INK  7:  B 
RIGHT  1:  CLS 

10  LET  NUM=10:  DIM  N<NUM+1):  D 
IM  N*<NUM+1,8)  :  FOR  N==l  TO  NUMs 
LET  N(N>=1100-(N*100>  :  LET  N$  <N) 
= "SPECTRUM"!  NEXT  N 

15  CLS  :  INPUT  "FOR  AN  EXAMPLE 
ENTER  YOUR  SCORE  SCO 

RE: " : SC 

20  IF  SCON  (10)  THEN  GO  TO  20 

0 

30  LET  NUM=  1  1 :  IF  SC>=N(NIJM)  T 
HEN  INPUT  "ENTER  8  INITALS !  ":P 

t:  IF  LEN  P*>B  THEN  GO  TO  20 
35  PRINT  AT  7,0;  FLASH  1;  BRIG 
HT  O;  INK  7;  PAPER  2; "THIS  WILL 
ONLY  TAKE  A  FEW  SECS ! " 

40  IF  SC>=N (NUM)  THEN  LET  N  <N 
L)M)  -SC:  LET  N*<NUM)«P* 
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50  FOR  A= 1  TO  ( NUM- 1 ) :  LET  B$= 
N$(A):  LET  C*«N*(A+l)x  LET  B~N(A 
> :  LET  C=N(A+1):  IF  B<C  THEN  LE 
T  N  ( A )  C :  LET  NCA+l )  "B:  LET  NT  (A 
)«C*:  LET  N*(A+1>=B$ 

60  NEXT  At  FOR  N"1  TO  NUM- Is  I 
F  N ( N ) <  N ( N+ 1 )  THEN  60  TO  50 
70  NEXT  N 
80  CL  8 

90  PRINT  AT  2,4; "H  ALL  OF 
F  A  M  E  !  " 

100  PRINT  AT  3, 4; "============= 


110  FOR  N= 1  TO  NUM-1 :  PRINT  AT 
N+5,'7;  r NK  6 INK  2;N;  INK 
6; " > " ; AT  N+5, 12;  INK  7;N<N>:  PRI 
NT  AT  N+5, 17;  INK'  5xN$(N>:  NEXT 
N 

120  PLOT  0,0:  DRAW  255,0:  DRAW 
0 , 1 75 :  DRAW  -255 , 0 :  DRAW  0,-1 75 : 
PRINT  AT  17,8;  PAPER  2;  INK  7;" 
PRESS  ANY  KEY!  LET  I~0 
130  LET  1=1+1:  IF  I >7  THEN  LET 
1=0 

140  PRINT  AT  2,4;  INK  I;"H  A  L 
L  OF  FANE!" 

150  BEEP  .01, 1*7:  PAUSE  2:  IF  I 
NKEY$= " "  THEN  (BO  TO  130 
160  60  TO  15 

200  PRINT  AT  10, 4; "SORRY  SCORE 
TO  LOW ! ! ! " 

210  PRINT  AT  13,7;"  PRESS  A  KEY 

i  " 

220  PAUSE  O:  RUN 
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Spec  File 


This  outstanding  database  program  comes 
from  Michael  Briggs.  It  stores  data  in  a 
very  compact  way,  ensuring  maximum  use  is 
made  of  the  memory. 

When  the  program  is  run,  you'll  be  asked 
to  enter  your  name,  the  file  title,  field 
titles  and  the  like.  Note  that  an  entry 
cannot  be  longer  than  256  characters,  and 
a  field  must  be  28  characters  or  less. 

A  menu  will  be  displayed,  with  the 

following  options: 

1/  BEGIN  NEW  FILE:  This  runs  the 

program,  clearing  all  data 

2/  ENTER  RECORDfS) :  This  will  ask  you 
to  enter  a  record,  field  by  field.  It 
will  then  sort  the  record  into  alpha¬ 
betical  order  with  the  rest  of  the 
file.  If  you  make  a  mistake  when 
entering  any  field,  simply  enter  "Q"  to 
return  to  the  menu 

3/  SEARCH:  This  searches  through  the 
file  for  either  a  string  of  letters  or 
a  numbered  record 

4/  PRINT  ALL  RECORDS:  This  prints  the 
first  field  of  all  files  and  allocates 
a  specific  entry  number  to  them 


27B 


5/  SAVE  FILE:  This  saves  the  fi le  under 
the  title  of  the  file.  If  the  title  is 
an  invalid  file  name,  the  word  "index” 
wi  L l  be  used 

6/  STATUS:  This  will  tell  you  various 
facts  about  the  state  of  the  program, 
such  as  much  space  is  left  in  the  file, 
how  many  entries  there  are,  and  how 
long  the  computer  has  been  running  the 
fi  Le 

You'll  find  that  even  though  this  sounds 
complex  when  you're  reading  about  it, 
you'll  find  it  is  really  quite  simple  to 
run  the  program. 


•  C'Cm  MICHAEL  BRINGS 

2  POKE  23609,40:  ioRDER  6:  IN 
K  Is  PAPER  7:  CLS  :  DIM  Z* <35000 
):  LET  Z=i :  LET  C0*0 

3  INPUT  "FORENAME. .. ":Cf 
9  INPUT  "SURNAME . . . " : S$ 

10  INPUT  "TITLE  OF  FILE  " : T$ 

20  INPUT  "NUMBER  OF  FIELDS  ":F 
30  DIM  A$ (F, 20) :  FOR  A=1  TO  F: 
PRINT  "ENTER  TITLE  FOR  FIELD  "  s 
A:  INPUT  BS:  LET  A* (A, 2  TO  >»B*s 
LET  A* (A, 1>*CHR*  LEN  B$:  PRINT 
INK  2sB*s  PRINT  :  NEXT  A 
70  PAUSE  50 

1 00  POKE  23609.40:  BORDER  6:  CL 
S  :  INK  Os  PLOT  0,0:  DRAW  255,0s 
DRAW  0.175:  DRAW  -255,0:  DRAW  0 
.-175:  INK  3 
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110  PRINT  INK  Or  BRIGHT  1 : AT  1 


, 13-LEN  T $ 

/2; 

T$s"  MENU" 

120  PRINT 

AT 

T  T  „  it 

t  1 

NO 

1 .  BEGIN 

NEW  FILE." 

130  PRINT 

AT 

5 «  11 

NO 

2. ENTER 

NEW  RECORD 

(S) 

H 

140  PR  INI- 

AT 

"7  T  m  1 1 

*  *»  * 

NO 

3.  SEARCH 

RECORDS  .  " 

150  PRINT 

AT 

O  T.  ii 
'  i  *-•  * 

NO 

4 .  PR  I NT 

ALL  RECORD: 

CD  (=' 

* 

160  PRINT 

AT 

11,3s" 

NO 

5. SAVE 

FILE. " 

165  PRINT 

AT 

13,3; " 

NO 

6. FILE 

STATUS. " 

170  PRINT 

II 

NK  2; AT 

15,: 

8;  "i!  MIC 

HAEL  BRIGGS" 

180  PRINT  INK  Is  AT  17,11-<LEN 
C*+LEN  S*) /2s "FILE  FOR  ";C*s"  " s 
8$ 

1 90  INPUT  "CHOICE. . . " : C 

195  CLS 

196  INK  1 

200  IF  0<C  AND  CCS  THEN  GO  TO 
C# 1000 

210  GO  TO  100 

1000  PRINT  AT  10,2:  "ARE  YOU  SURE: 

i i  «  r~  <±  «n  o*» 

m  w  V  it 

1010  INPUT  Yt 

1 020  IF  Y* ( 1 ) » " Y "  OR  v* ( 1 ) = " y "  T 

HEN  RUN 

1030  GO  TO  100 

2000  INK  2:  FOR  A*1  TO  F 

2010  PRINT  AT  A*2-l , 13- (CODE  A* ( 

A. l)/2) : "ENTER  "*A*<A,2  TO  ) 

2020  NEXT  A 
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2021  PRINT  AT  21,0s  INK  Is "ENTER 
'vGr  TO  RETURN  TO  MENU.  " 

2030  LET  E*="" 

2040  FOR  A” 1  TO  F 

2050  PRINT  AT  A*2-l, 13- (CODE  A* ( 
A , 1 ) / 2  > ; " ENTER  " s  FLASH  1 :  A$  <  A . 2 
TO  1+CODE  A*<A>> 

2060  INPUT  F$ 

2061  IF  Ff ="Q"  THEN  GO  TO  100 
2070  LET  E$=E$+CHR*  L.EN  F*+F* 
2080  PRINT  AT  A # 2— 1 » 1 3- ( CODE  A*  < 
A .  1 )  /2 )  ;  " ENTER  "  :  AT  (A.  2  TO  1 +COD 
E  (A)  ) 

2090  PRINT  INK  Os  AT  A#2, 16-LEN 
F  $  /  2  s  F  $ 

2100  NEXT  A 

2110  LET  X 1 — 1 s  FOR  A=1  TO  CO:  LE 
T  X$=Z$(Xl+2  TO  X 1+CODE  Z$(X1+1> 
+  1  ) 

2115  IF  X$>E*<2  TO  )  THEN  GO  TO 
2400 

2120  LET  X 1 =X 1 +CODE  Z$(X1) 

2125  NEXT  A 

2126  LET  E$=CHR*  (LEN  E$+l)+E$: 
LET  Z$  (Z  TO  Z+LEN  E*)=ES 

2131  LET  Z=Z+LEN  E$ 

2140  LET  CO—CO+ 1  s  CLS  s  GO  TO  20 
00 

2400  LET  E$=CHR*  (LEN  E$+l)+E$ 
2410  LET  Z$ ( X 1+LEN  E$  TO  Z+LEN  E 
*)=/!*<  XI  TO  Z) 

2420  LET  Z$(X!  TO  X 1+LEN  E*-1)=E 

5 

2430  GO  TO  2131 

2999  REM  SEARCH  ROUTINE 
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3000  PRINT  TAB  11: ''SEARCH  MODE"; 
AT  2,0;  "ENTER.  .  AT  3,0:"  ~N I 
F  ENTERING  RECORD  NUMBER.  ^  I 
F  ENTERING  CHARS  ONLY.":  INPUT  " 
KEYWORD" :  K* 

3004  LET  M$="  IF  K*  < 1 > ="N"  TH 
EN  LET  M«=K$U>:  LET  K$=K$ (2  TG 

3005  PRINT  TAB  Q: "KEYWORD®" : K$ 

3006  LET  RET--3040 

3010  LET  X  =  l:  FOR  A=1  TO  CO 

3015  LET  X 1=X :  LET  V$=Z$(X  TO  (C 
ODE  Z$<X)+X-1 ) )+"  Ms  IF  M$="N"  T 
HEN  GO  TO  3300 

3016  FOR  J-l  TO  LEN  V*-LEN  K* 
3020  IF  (J  TO  J-l+LEN  K*)=K*  T 
HEN  GO  TO  3200 

3030  NEXT  J 

3040  LET  X=X1+LEN  V*-l:  NEXT  A 
3050  PRINT  *’•  INK  0: "PRESS  A  KE 
Y":  PAUSE  O:  GO  TO  100 
3200  PRINT  ’ ?  INK  4: "ENTRY  NO... 
" :  ft:  LET  X2=X1:  LET  X1=X1+1:  FOR 
K— 1  TO  F 

3210  PRINT  INK  2:A*<K,2  TO  CODE 
A$  <  K  >+ 1 :  PR I NT  I NK  1 ; T A 
B  32-CODE  Z$<X1> ;Z$<X1+1  TO  Xl+C 
ODE  (Z*(X1)>> 

3220  LET  X  1  =  X  1  + 1 +CODE  Z$(X1) 

3225  NEXT  K 

3240  LET  X 1=X2:  GO  TO  RET 

3300  IF  AOVAL  K$  THEN  GO  TO  30 

40 

3310  LET  RET =3050 
3320  GO  TO  3200 
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4000  PRINT  "ANY  KEY  WILL  STOP  TH 
E  SCROLLING  DISPLAY  UNTIL  KEY  IS 
RELEASED. ” 

4005  PAUSE  O 

4010  PRINT  AT  18, 16-LEN  T$/2:  IN 
K  2;T* 

4020  INK  Is  PRINT 
4030  PRINT 

4040  LET  X=l:  FOR  A=1  TO  CO 

4049  PRINT  AT  21,0:  POKE  23692.- 
1 

4050  PRINT  "0000“ :  AT  21,4-LEN  (S 
TR*  A) ; A; " : " ; Z$  (X+2  TO  X+l+CODE 
<Z$<X+ 1) )  ) 

4060  LET  X=X+ (CODE  Z $(X)I 

4065  IF  INKEY$< >" "  THEN  60  TO  4 

065 

4070  NEXT  A 

4075  PRINT  ' ’ "PRESS  ANY  KEY  TO  R 
ETURN  TO  MENU." 

4080  PAUSE  0:  60  TO  100 
5000  PRINT  "I  SHALL  SAME  THE  FI L. 
E  UNDER  THE  NAME  OF" 

:  PRINT  AT  10, 16-LEN  T»/2s  FLASH 
1 :  T$ 

5005  IF  TS=""  OR  LEN  Tf >10  THEN 
PRINT  AT  10, is"  IN 

DEX  " :  SAVE  "INDEX" 

LINE  100:  GO  TO  100 
5010  SAVE  T$  LINE  100 
5020  GO  TC!  100 

6000  PLOT  0,0:  DRAW  255,0:  DRAW 
0,175:  DRAW  -255,0:  DRAW  0,-175 
6010  PRINT  AT  1,12-<LEN  T*> /2;  B 
RIGHT  Is  INK  2 ; T$ ; "  STATUS" 
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6020  PRINT  AT  3, 2; "COMPUTER  ON  T 
I  ME  :  *' :  I  NT  <  (  <  PEEK  23672+256  ^PE¬ 
EK  23673) +65536*PEEK  23674) /50> : 
"  SECS” 

6030  PRINT  AT  5, 10-<LEN  S*+LEN  C 
*> 72; "FILE  FOR  " ; C* ; “  ";S$ 

6040  PRINT  AT  7,8; “NO. OF  RECORDS 
:  " ;  CO 

6050  PRINT  AT  9, 2; "CHARACTER  SPA 
CE  LEFT  : “ ; 35000-2 
6060  PRINT  AT  1 1 , 4; "CHARACTERS  I 
N  FILE  : " ; 2 

6070  PRINT  AT  13, 3; "PROGRAM; -0  M 
ICHAEL  BRIGGS" 

6075  PRINT  AT  20,5; "PRESS  ANY  KE 
Y  FOR  MEINU " 

6080  PRINT  AT  3, 2; "COMPUTER  ON  T 
IME  s " ; I NT  (((PEEK  23672+256*PE 
EK  23673 ) +65536*PEEK  23674) /50); 
"  SECS" 

6085  IF  I NKEY$<  >" "  THEN  GO  TO  6 
1 00 

6090  GO  TO  6080 
6100  GO  TO  100 
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Sketching  an  outline 

Many  times  I've  written  articles  and 
chapters  in  books  which  are  supposedly 
going  to  improve  the  programming  skill  of 
those  who  read  them.  But  every  time  I 
produce  such  a  list  of  'things  you  really 
should  be  doing  when  you  program',  or 
explain  the  material  to  someone,  I  am 
reminded  of  an  old  story  about  a  farmer. 

He  was  approached  by  a  young  man  selling 
correspondence  courses  in  'Effective 
Farming'.  ''Don't  you  see,"  the  young 
salesman  said  as  part  of  his  pitch,  "that 
if  you  take  this  course  you'll  know  so 
much  more  about  farming?".  The  farmer 
replied  "I  don't  even  farm  now  as  good  as 
I  know  how." 

So  it  goes,  I  suggest,  for  advice  on 
programming.  I  know  full  well  that  I  do 
not  "program  as  good  as  I  know  how".  Many 
times  I  break  all  the  rules,  wading 
straight  into  coding  a  complex  program 
without  even  a  thought  for  the  ideas  of 
'structured  programming'. 

So  I  suggest  you  keep  in  mind,  when 
reading  this  appendix,  that  I  do  not 
really  belive  that  you  -  or  anyone  else  - 
is  really  going  to  take  the  idaas  here  as 
rules  which  must  be  obeyed,  came  hell  or 
high  water.  The  best  way  to  approach  this, 
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and  any  other  material  in  a  similar  vein 
which  you  come  across,  is  to  read  it 
carefully,  and  make  your  own  assessment  on 
each  suggestion  given.  Than,  just  apply 
the  ideas  which  seem  most  sound  to  you. 

The  basic  idea  I'm  outlining  in  this 
appendix  is  that  of  approaching  structured 
programming  by  'sketching  an  outline'. 

The  idea  is  simple,  but  very  vaLuable  in 
order  to  help  you  write  complicated  and 
involved  programs,  such  as  many  of  those 
in  this  book.  Of  course,  you  may  well  be 
already  creating  very  compLex  programs 
without  using  anything  like  the  idea  I'm 
about  to  outline.  Even  if  you  are,  I 
suggest  you  think  carefully  about  these 
ideas,  so  that  you  can  see  that  they  may 
make  your  job  easier. 

The  fundamental  idea  of  structured 
programming  lies  hidden  in  the  phrase  'top 
down  programming' .  This  suggests  that  you 
start  the  process  of  programming  by  first 
stating  inwords  the  broad  aim  of  the 
program  you  are  about  to  write.  You  follow 
this  up  by  writing  a  series  of  notes  - 
each  of  which  will  eventually  be  a 
subroutine  -  which  cover  each  of  the  main 
tasks  which  the  computer  will  carry  out. 

To  clarify  this  last  paragraph,  I'll  give 
you  a  concrete  example.  Here  are  the  steps 
you  could  follow  when  trying  to  write  a 
Noughts  and  Crosses  program.  (Note  that 
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'structured  programming'  produces  listings 
which  are  much  longer  than  might  otherwise 
be  the  case.  However,  this  greater  length 
is  more  than  offset  by  the  fact  that 
programs  built  up  in  this  way  are  very 
simple  to  debug  and  improve,  and  their 
structure  can  be  readily  understood  by 
other  programmers.  You  may  not  be  able  to 
make  such  claims  with  confidence  about 
some  of  your  current  programs.] 


SET  UP  INITIAL  BOARD 
COMPUTER  MOVE 

(A]  CHECK  IF  MIDDLE  SQUARE  EMPTY, 
IF  NOT  MOVE  THERE 

(B)  CHECK  IF  THERE  IS  A  COMPUTER 
WINNING  MOVE,  IF  SO  MAKE  IT 

1C)  CHECK  IF  HUMAN  WILL  WIN  ON  NEXT 
MOVE,  IF  SO  BLOCK 

CD)  IF  NO  MOVE  MADE,  CHECK  TO  SEE 
IF  A  RANDOM  MOVE  CAN  BE  MADE,  IF  SO 
MAKE  IT,  IF  NOT  DECURE  A  DRAW 
PRINT  BOARD 
ACCEPT  PUYER  MOVE 
PRINT  BOARD 

CHECK  IF  PUYER  HAS  WON,  IF  SO  STOP 
GOTO  'COMPUTER  MOVE' 


As  you'll  see  if  you  take  a  few  moments  to 
study  this  sketched  outline,  you  can  tell 
exactly  which  steps  the  computer  will 
follow;  the  decisions  it  will  be  called  to 
make;  and  the  alternative  results  of  those 
decisions. 
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You  have  already  completed  the  first  step 
towards  writing  a  Noughts  and  Crosses 
program.  You'll  see,  by  the  way,  that  it 
doesn't  matter  at  all  if  you  do  not  yet 
know  how  you  are  going  to  get  your 
computer  to  carry  out  the  necessary  steps. 
All  that  matters  is  that  you  know  that  the 
steps  must,  in  some  fashion,  be  executed 
in  due  course. 

The  second  step  in  the  process  consists  of 
turning  the  sketched  outline  into  a  series 
of  subroutine  calls.  In  languages  which 
are  more  structured  than  the  BASIC  you 
have  on  your  computer  (such  as  the  BASIC 
provided  on  the  BBC  Micro,  or  Pascal)  it 
is  relatively  easy  to  call  a  number  of 
subroutines  within  an  endless  loop,  with  a 
structure  like  DQ/WHILE  or  REPEAT/UNTIL. 
These  allow  you  to  repeat  a  series  of 
program  steps  indefinitely  until  a  certain 
condition  is  satisfied,  or  the  state  of  a 
pointer  or  flag  changes. 

In  the  BASIC  we  have  here,  however,  we 
have  to  be  content  with  the  humble,  and 
much-maligned  GO  TO.  (Much  of  the  reaction 
against  GO  TO,  which  many  'serious 
programmers'  see  as  the  greatest  insult  to 
the  art  of  true  programming  ever 
developed,  came  from  early  and  relatively 
primitive  versions  of  BASIC,  in  which  you 
can  only  follow  an  IF/THEN  with  a  GO  TO. 
This  meant  the  program  leapt  all  over  the 
place,  leading  to  'spaghetti  code'  which 
was  horrendousLy  difficult  to  interpret.) 
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The  second  stage  is  to  turn  our  sketched 
outLine  into  a  series  of  subroutine  caLls, 
endlessly  cycled  by  a  GO  TO  as  follows: 


10  REM  NOUGHTS  AND  CROSSES 
20  GOSUB  9000: REM  INITIALISE 
30  GOSUB  1000: REM  COMPUTER  MOVE 
40  GOSUB  8000: REM  PRINT  BOARD 
50  GOSUB  2000: REM  ACCEPT  PLAYER  MOVE 
60  GOSUB  8000: REM  PRINT  BOARD 
70  IF  human  has  not  won  ANO  computer 
has  not  won  THEN  GO  TO  30 
80  PRINT  "CONGRATULATIONS" 


Now,  as  you  can  see,  we  have  the 
'framework1  for  a  workable  Noughts  and 
Crosses  program,  even  though  we  do  not  yet 
have  a  clue  as  to  how  the  program  will 
actually  work.  We  can  now  set  about 
writing  the  program  from  first  principles. 

There  are  two  further  advantages  of  this 
'outline'  approach.  If  there  is  something 
we  cannot,  at  this  stage,  actually  program 
(like  the  basis  upon  which  the  computer 
finds  out  who  has  won]  we  can  simply  put 
in  a  PRINT  statement  within  the  subroutine 
like  PRINT  "CHECKING  FOR  WIN"  and  continue 
to  use  the  program,  as  we  work  on  it. 
Then,  each  time  the  computer  should  be 
checking  for  a  win,  it  will  print  up 
CHECKING  FOR  WIN.  This  means  you  can 
continue  working  on  the  program,  without 
being  needlessly  held  up  on  a  minor 
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subroutine  which  you  cannot,  for  the 
moment,  solve. 

The  second  advantage  comes  towards  the  end 
of  the  program  development  stage,  the 

debugging  stage.  I  always  find  this  the 
most  frustrating,  and  in  many  ways,  the 
Least  rewarding  aspect  of  programming. 
ALthough  I  can  often  get  a  program  working 
reasonably  well  fairly  quickly  (although 
my  first  chess  in  BASIC  too  nearly  six 

months),  to  get  the  program  from  'working 
reasonably  well'  to  'performing  without 
faults  under  all  conditions'  can  take  as 
long  as  it  took  to  get  the  first  version 
even  working  at  all.  However,  when  you  set 
up  the  program  in  the  way  described  in 

this  section,  you'll  see  that  the 
debugging  stage  can  be  greatly  simplified. 

For  example,  you  may  find  in  your  Noughts 
and  Crosses  program  that  the  computer 
tends  to  ignore  the  bottom  right  hand 

corner,  when  a  move  into  this  position 
would  enable  it  to  win,  or  to  block  a  win 
from  the  human.  From  the  'subroutine  loop' 
we  set  up  before,  we  know  the  computer's 
move  must  be  made  somewhere  between  lines 
1000  and  1999.  This  immediately  narrows 
down  the  search.  If  you've  been  clever, 
and  have  made  each  subroutine  a  series  of 
further  subroutine,  each  constructed  in  a 
similar  way  to  our  major  subroutine,  it 
would  be  even  easier  to  track  down  the 
bug. 
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Let's  Look  at  this  idea  -  making  each 
subroutine  a  series  of  further  subroutines 
-  a  Little  more  closely.  We'll  look  at  the 
subroutine  starting  at  line  1000,  the  one 
in  which  the  computer  actually  makes  its 
move,  as  this  is  the  most  important  (and 
difficult  to  program)  of  aLl  those  in  this 
game. 

The  subroutine  could  begin  as  follows: 

2000  REM  COMPUTER  MOVE 
2010  LET  M0VE=Q : REM  IF  THIS  BECOMES  1  A 
VALID  MOVE  HAS  BEEN  FOUND 
2020  GOSUB  2200: REM  CHECK  IF  MIDDLE 
SQUARE  IS  EMPTY 
2030  IF  M0VE=1  THEN  RETURN 
2040  GOSUB  2400: REM  CHECK  IF  A  POSSIBLE 
WINNING  MOVE  EXISTS 
2050  IF  M0VE=1  THEN  RETURN 
2060  GOSUB  2600: REM  CHECK  IF  A  POSSIBLE 
HUMAN  WIN  CAN  BE  BLOCKED 
2070  IF  M0VE=1  THEN  RETURN 
2080  GOSUB  2800: REM  CHECK  IF  ANY  MOVE  AT 
ALL  CAN  BE  MADE 
2090  IF  M0VE=1  THEN  RETURN 
2100  REM  A  RETURN  WITH  MOVE=0  MEANS  NO 
FURTHER  MOVES  ARE  POSSIBLE 
2110  RETURN 

As  I  said  earlier,  programs  constructed 
using  the  'endless  loop  of  subroutines' 
coupled  with  'subroutines  within 
subroutines'  make  listings  which  may  be 
far  longer  than  usual.  However,  there  is 
usually  little  need  to  worry  about  running 
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out  of  memory  (as  was  the  case  on  the  ZX81 
and  the  T/S  1000  when  counting  bytes 
became  the  dominant  feature  of  our 
programming  Lives).  The  extra  typing 
involved  in  producing  the  Longer  Listings 
will  be  amply  repaid  by  the  extra  clarity 
your  programs  attain,  and  the  much  shorter 
time  it  will  take  to  produce  a  debugged 
masterpiece  of  which  you  can  be  proud. 

You'Ll  find  if  you  take  the  trouble  to 
start  with  a  'sketched  outline',  the  whole 
process  of  constructing  a  major  program  is 
much,  much  simpler  than  might  otherwise  be 
the  case.  You'll  also  find  that  the  time 
involved  will  be  much  more  constructively 
spent  that  it  would  have  been  if  you  had 
just  waded  into  the  programming  without 
taking  the  time  to  do  your  sketching 
f i rst . 

Ignore  the  old  farmer,  and  try  now  to 
program  'as  good  as  you  know  how'. 
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Here's  a  collection  of  49  games  guaranteed  to 
make  you  glad  you  invested  in  a  Spectrum. 

Tim  Hartnell,  the  world's  most  widely  published 
computer  author  (and  recently  described  by 
Personal  Computer  World  magazine  as  ‘Mr 
Sinclair )  has  drawn  on  the  work  of  some  of  the 
UK's  most  talented  young  programmers  to  bring 
together  this  incredible  collection  of  explosive 
games  for  your  Spectrum, 


The  programs,  many  of  which  feature 
machine  code  subroutines,  include: 

PROTECTOR 

WIPE-OUT 

CHOPPER  SQUAD 

DODGEMS 

SNAKE 

ZOMBIES 

DOORS  OF  DOOM  (Adventure) 
GOLD  RUSH 
SPACE  TREK 

3-D  MAZE  (with  full  graphics) 


Don't  wast  a  minute  longer  reading  the  back  of 
this  book  in  the  shop.  Buy  it  now,  and  rush  home, 
and  start  your  Spectrum  exploding. 


Another  great  book  from 
INTERFACE  PUBLICATIONS 


